#!/usr/bin/env perl
## 
use warnings;
use strict;

use Data::Dumper;
use Storable;

my %hash1 = (
            'entry1' => 'value1',
            'entry2' => 'value2'
            );

store \%hash1 , "serialized_file.data";
print "##### HASH1 #####\n";
print Dumper(\%hash1);
my %hash2 = %{retrieve "serialized_file.data"};

print "\n##### HASH2 #####\n";
print Dumper(\%hash2);

exit 0;