Select Code to Download

#!/usr/bin/perl

...
  print "Waiting for ",$thr -> tid()," to join\n";
  $thr -> join();
}

#!/usr/bin/perl

...
    sleep 1;
  }
}