Does someone know how to create sparse files with Perl without using a system command?

open my $fh, '>', 'zeros'  or die "error opening fh: ($!)";
binmode $fh;
print $fh pack "x512";  #512 bytes-- season to taste, loop as needed
[download]