use strict;
use warnings;
use Storable;
use Data::Dumper;
my $hashref = retrieve('file');
print Dumper $hashref;