perl -le 'for $i ((1..10)) { print "$i"; local *F; open(F, ">f_$i") or die "open: $!"; print F "x"x10240; }'