use Storable qw/thaw/;
use Data::Dump qw/dump/;
use Encode qw/decode decode_utf8/;

my $file = shift;

open (my $fh, "<:raw", $file) || die $!;
my $contents = join '', <$fh>;

dump thaw $contents;