Select Code to Download

use threads;
use threads::shared;
...
$ftp->done;
$done = 1;
my $input = $t->join;