use strict;
use warnings;
use Storable;

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

store (\$val, $file);

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

##</code><code>##

use strict;
use warnings;
use Storable;

my $file = 'store.ubu';

print "Retrieving $file\n";

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

##</code><code>##

Retrieving store.ubu
Long integer size is not compatible at C:/_64/perl522_492/lib/Storable.pm line 383, at retrieve.pl line 9.

##</code><code>##

if ((int) *current++ != sizeof(long))
to
if ((int) *current++ != sizeof(IV))

##</code><code>##

Retrieving store.ubu
12345678