# main program 
$thr1=new threads \&sub_name;
$thr2=new threads \&sub_name;
$thr3=new threads \&sub_name;
$thr4=new threads \&sub_name;

# threaded subroutine
sub sub_name{
    print ("\nIn the thread!\n");
    # here I need help to join this thread after the 	print

}