Help for this page
Select Code to Download
Select
or
download this
my $sem :shared; my $thread1 = threads->create( \&thread, \$sem );