use strict;
use warnings;
use Storable qw(freeze thaw);
use Data::Dumper;

my %orig = ( 1 => 2, a => 'b');
my $frozen = freeze(\%orig);
print "Frozen: $frozen\n";

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

##</code><code>##

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Purity = 1;
$Data::Dumper::Terse = 1;

my %orig = ( 1 => 2, a => 'b');
my $frozen = Dumper(\%orig);
print "Frozen: $frozen\n";

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