http://www.perlmonks.org?node_id=55606


in reply to one-liner hogs


And how about one for disk hoggage:
perl -e '(open T "/tmp/f.$t" and print T "disk\n"x256; close T) while +(++$t);'
That should work. If not a little variation should be close enough. There are probably more efficient ways to do this, but that's the first thing off the top of my head...

HTH,
jynx