use Net::SSH2;

##</code><code>##

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

##</code><code>##

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