http://qs1969.pair.com?node_id=324124


in reply to Re: Cleaning up your hard disk
in thread Cleaning up your hard disk

Of course you could also 
open F, ">file.txt";
while() { print F chr rand( 20 ) + 65; }

[download]
And break it when it's done.

In Section Cool Uses for Perl