Help for this page

Select Code to Download


  1. or download this
                eval {
                 sub test {
...
                     };
                 }
             };
  2. or download this
    #! perl -slw
use strict
...
    print "Thread $tid started with a worktime of $worktime";
    print "Thread $tid ended ", $@ ? " with error: $@" : "normally";
} for  1 .. 4;