#! perl -slw
use strict;
use threads;
use threads::shared;
use Storable qw[ nstore retrieve ];
use Data::Dump qw[ pp ];

my %hash :shared = (
    a=>1,
    b=>1,
);

async {
    nstore { %hash }, 'fred.bin';
}->join;

my $hash2 = retrieve 'fred.bin';

pp $hash2;

__END__
C:\test>junk42
{ a => 1, b => 1 }