Ticket #72: test.pl

File test.pl, 248 bytes (added by dam, 6 years ago)
Line 
1#!/usr/bin/perl -w
2use strict;
3
4# This is some cyrillic test, encoded in UTF8
5# ТПва е тестПва прПграЌа за ОзпрПбваМе Ма пПЎЎръжката
6# Ма UTF8 Пт ПаЎре
7
8sub test()
9{
10    print "Hi!\n";
11}
12
13test;