#!/opt/kalm/bin/perl -w
use strict;
use Storable qw(lock_store lock_retrieve);
use Data::Dumper;
$Data::Dumper::Deepcopy=1;
$Data::Dumper::Purity=1;
$Data::Dumper::Sortkeys=1;

my %data = ( 1 => 'FEE', 2 => 'FYE',
             3 => 'FOH', 4 => 'FUM', );

my $file = 'test.dat';
lock_store \%data, $file;
my $hashref = lock_retrieve $file;

print Dumper($hashref);