my $size = 300;
my $counter = $size * 1024;
open(file, ">".$size."kb.txt");
	
for(my $i=0; $i < $counter; $i++)
{
	print file "*";	
}	
close(file);