use strict;
use warnings;
use Storable;

my $val = 12345678;
my $file = 'store.ubu';

store (\$val, $file);

my $valref = retrieve($file);
print "$val $$valref\n";