Opret en masse filer - 1

* Problemet:

- Opret en masse filer på 1000 bytes

#!/usr/bin/perl


for ($i=0; $i<=10000; $i++) {


open(FIL, ">$i") || die;


print FIL "x"x1000;


close FIL;


}