use Net::SFTP::Foreign;
$ftp = Net::SFTP::Foreign->new(
  host => $server,
  backend => 'Net_SSH2',
  user => $user,
  password => $pass,
  #more => ['-v']
);