use Net::SFTP;
use Net::SFTP::Util qw(fx2txt);
%args = (
   user => "thisuser",
   debug => 1,
   protocol => 2
); 
$host = $ARGV[0];
$ftp = Net::SFTP->new($host, %args);