my $arg = shift;
my $len = -s $arg;

open my $file, '<', $arg;
binmode $file;

read $file, my $buf, $len;

close $file;

open my $mem_file, '<', \$buf;
binmode $mem_file;

.....do stuff....