#!/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);
}