my $ftph;
eval {
 $ftph = Net::SFTP::Foreign( "$user\@$host", more=>'-v', autodie=>0 );
};

##</code><code>##

my $ftph = Net::SFTP::Foreign::->new($host, user => $user, ...);

##</code><code>##

my %args = (host => $host, user => $user);
push @{$args{more}}, '-v' if $opt_verbose;
$args{autodie} = $opt_autodie;
my $ftph = Net::SFTP::Foreign::->new(%args);