#!/usr/bin/perl

use threads;
use threads::shared;
my $a= "abc";
my $b = &share(\$a);
print $a . "\n";
print $$b . "\n";
$a.="def";
print $a . "\n";
print $$b . "\n";

my $bar : shared;
my $foo : shared;
$foo = \$bar;