use threads; 
use threads::shared;;

my $x:shared = bless [], 'X';

Invalid value for shared scalar at (eval 4) line 1, <STDIN> line 2.