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