4 print STDERR "Usage: $0 <size in KB> <filename>\n";
11 $buf1m = "$buf1k"x1024;
17 open(FILE, "|cat") or die;
19 open(FILE, ">$ARGV[1]") or die;
22 for($i = 0; $i+1024 <= $kb; $i+=1024) {
23 print FILE $buf1m or die;
26 print FILE "$buf1k"x($kb-$i) or die;