Select Code to Download

$thr_1->detach();

$thr_2 = threads->create('func_thr_2')->detach;

#!/usr/bin/perl

...
    }
    print "\nTime up\n";
}