[tmp]$ cat duelafn.pl
open my $fh, '>', 'zeros'  or die "error opening fh: ($!)";
seek $fh, 1024*1024*10 - 1, 0;
print $fh "\0";

[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