use strict;
use warnings;
use Storable;

my $file = 'store.ubu';

print "Retrieving $file\n";

my $r = retrieve($file);
print $$r, "\n";