Ticket #1229: biggen.pl

#!/usr/bin/perl

#use 5.006;
#use strict;
#use warnings;

my ($n, $j, $i, $fh);
if (open($fh, '>big.pl'))
{
    for ($j=100; $j<399; $j++)
    {
        print $fh "\n\nsub func".$j."\n{";
        print $fh "\n\n=pod\n=cut\n";
        print $fh "\n".'print "UTF8 cyrilic letters: АктОвМые В Птчете Ме указаМы(Ўля тестОрПваМОя вМутрО), так же Ме учОтываются";';
        print $fh "\n\n=pod\n=cut\n";
        print $fh "\n".'print "UTF8 cyrilic letters: АктОвМые В Птчете Ме указаМы(Ўля тестОрПваМОя вМутрО), так же Ме учОтываются";';
        for ($i=0; $i<20; $i++) { print $fh "\n\t###################################################"; }
        print $fh "\n}\n"
    }
    close ($fh);
}