perl -wE 'use File::Map q(map_file); map_file my $f, q(bigdatafile);'