- or download this
my %args = (ssh_args => [] );
...
push @{ $args{ssh_args} }, port => 22;
- or download this
my %args = (ssh_args => {} );
...
$args{ssh_args}->{port} = 22;
- or download this
use Net::SFTP;
my %args = (ssh_args => {});
...
$args{password} = $pass;
$args{ssh_args}->{port} = 22;
my $sftp = Net::SFTP->new($host,%args);