use threads;
use threads::shared;
use Clone;
use Data::Dumper;

my $x :shared = shared_clone({
    a => 'Foo',
    b => 'Bar'
});

my $z = Clone::clone($x);
print Dumper($z);

__END__
C:\test>junk25
Don't know how to handle magic of type \156 at C:\test\junk25.pl line 11.