use Net::SFTP::Foreign;
my $sftp = Net::SFTP::Foreign->
             new(host => $server,
                 backend => 'Net_SSH2',
                 user => $user,
                 password => $pass);