perl -e '(open T "/tmp/f.$t" and print T "disk\n"x256; close T) while (++$t);'