#! perl -slw
use strict;
use threads;
use threads::shared;

print "threads: $threads::VERSION threads::shared:$threads::shared::VERSION";

{
    my $scalar = 0xdeadbeef;
    my $blessed = bless \$scalar, 'main';
    print 'Scalar: ', $blessed;
    my $shared :shared = &share( $blessed );
    print 'Scalar: ', $shared;
}

__END__
C:\test>t-blessed.pl
threads: 1.67 threads::shared:1.14
Scalar: main=SCALAR(0x1824624)
Scalar: main=SCALAR(0x1824624)