Select Code to Download

use threads ();
my $foo;
threads->new( sub {print "thread: coderef = ".\$foo."\n"} )->join;
print "  main: coderef = ".\$foo."\n";

use threads ();
sub foo {1}
threads->new( sub {print "thread: coderef = ".\&foo."\n"} )->join;
print "  main: coderef = ".\&foo."\n";

use threads ();
threads->new( sub {
...
    # do your Benchmark stuff
} )->join;
print "Benchmark has been loaded!\n" if defined $Benchmark::VERSION;

use threads ();
threads->new( sub {
...
    # do your Benchmark stuff
} )->join;
print "Benchmark has not been loaded!\n" unless defined $Benchmark::VE
+RSION;

use threads ();
threads->new( sub {
...
    # do your Benchmark stuff
} )->join;
use Benchmark;

use threads ();
my $thread;
...
}
use Benchmark;
$thread->join;