Select Code to Download

[tmp]$ cat broomduster.pl
open my $fh, '>', 'zeros'  or die "error opening fh: ($!)";
...
[tmp]$ rm zeros; perl broomduster.pl; ls -lh zeros; du -h zeros
-rw-rw-r-- 1 duelafn 10M 2008-10-09 22:17 zeros
11M     zeros

[tmp]$ cat duelafn.pl
open my $fh, '>', 'zeros'  or die "error opening fh: ($!)";
...
[tmp]$ rm zeros; perl duelafn.pl; ls -lh zeros; du -h zeros
-rw-rw-r-- 1 duelafn 10M 2008-10-09 22:17 zeros
12K     zeros