#!/usr/local/bin/perl
# Jaime Prilusky, 2004

use Storable qw(lock_store lock_nstore lock_retrieve);

# $Storable::canonical = 1; # stores sorted by key

  my %table = (
    "Sun" => 1,
    "Mon" => 2,
    "Tue" => 3,
    "Wed" => 4,
    "Thu" => 5,
    "Fri" => 6,
    "Sat" => 7,
  );

# lock_store \%table, 'file';
  lock_nstore \%table, 'file';

  my $hashref = lock_retrieve('file');

  use Data::Dumper; print Dumper($hashref);