Select Code to Download

use Net::SSH2;

        my $work_q = Thread::Queue->new();
        my $thr = threads->new( 'file_worker', $work_q );

my $retval = sftp_file($file,$destfile,$host,$port,$user,$privpath,$pu
+bpath,$pass);