多线程中的变量共享

use threads;
use threads::shared;
my $count:shared = 1;
print "主线程中count为:$count
";

sub thread1{
        print "线程1增加1
";
        $count++;
        print "在线程1中结果为:$count
";
        sleep(1);
}
sub thread2{
        print "线程2增加1
";
        $count++;
        print "在线程2中结果为:$count
";
        sleep(1);
}

my $th1 = threads->new('thread1');
my $th2 = threads->new('thread2');
$th1->join();
$th2->join();
print "当所有线程结束时count的值为:$count
"