use Net::SFTP;
my %args = (ssh_args => []);
$args{user} = $user;
push @{ $args{ssh_args} }, port => 22;
my $sftp = Net::SFTP->new($host,%args);