[rrr]$ cat /tmp/test_storable_shared.pl
#!/usr/bin/perl

use strict;
use warnings;

use Storable;
use threads;
use threads::shared;

my $file = "fff";

my $href_1 = shared_clone({ a => 1});

untie $href_1;

store($href_1, $file);

my $href_2 = retrieve($file);

printf "%s => %s\n", $_, $href_2->{$_}  for keys %$href_2;

[rrr]$


[rrr]$ /tmp/test_storable_shared.pl
Can't locate object method "FETCH" via package "threads::shared::tie" at /tmp/test_storable_shared.pl line 20.
[rrr]$