Select Code to Download

#!/usr/bin/perl -w
use warnings;
...
        print "connected\n";
        $thread->join();
}

#!/usr/bin/perl -w
use warnings;
...

$thread->join();
$thread1->join();