1*f3efcd01Safresh1use threads; 2*f3efcd01Safresh1my $thr = threads->create(\&sub1); 3*f3efcd01Safresh1sub sub1 { 4*f3efcd01Safresh1 print("In the thread\n"); 5*f3efcd01Safresh1} 6*f3efcd01Safresh1$thr->join; 7*f3efcd01Safresh1print "Finished\n";