- or download this
my $ftph;
eval {
$ftph = Net::SFTP::Foreign( "$user\@$host", more=>'-v', autodie=>0 );
};
- or download this
my $ftph = Net::SFTP::Foreign::->new($host, user => $user, ...);
- or download this
my %args = (host => $host, user => $user);
push @{$args{more}}, '-v' if $opt_verbose;
$args{autodie} = $opt_autodie;
my $ftph = Net::SFTP::Foreign::->new(%args);