Select Code to Download

use strict;
use warnings;
...

my $restored = thaw($frozen);
print "Thawed: ", Dumper $restored;

use strict;
use warnings;
...
my $restored = eval $frozen;
print "Thawed: ", Dumper $restored;
print "Error: $@\n";