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

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

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

##</code><code>##

Can't locate object method "FETCH" via package "threads::shared::tie" at C:/Perl/site/lib/Data/Dumper.pm line 190.