use Sys::Mmap;
new Sys::Mmap my $f, 8192, q(bigfile);