Select Code to Download

use Storable qw/thaw/;
use Data::Dump qw/dump/;
...
my $contents = join '', <$fh>;

dump thaw $contents;

$contents = decode_utf8($contents);

$ perl -v

...
...
$ perl -MStorable -le 'print Storable->VERSION'
2.20