#!/usr/bin/perl -w
use strict;

use Storable qw(freeze thaw);

my $thaw_me = 'asdasdasdasd';

#eval {
#    my $thawed = thaw $thaw_me;
#};
#if($@) {
#    warn "there was a THAWING error\n";    
#}


my %to_be_frozen = (foo => 'bar');
my $frozen;
eval {
    $frozen = freeze \%to_be_frozen;
};

if($@) { die "error while freezing: $@" }

print "it froze it\n";