use threads; 
use threads::shared; 
use Benchmark::Timer;
{ 
    my $T : shared; 
    $T = Benchmark::Timer->new();
}
Invalid value for shared scalar at (eval 5) line 1, <> line 5.