Help for this page

Select Code to Download

Select or download this

#! usr/bin/perl

...
my $f  = Net::SFTP->new($host) or die "couldn't connect";
$f->login($userid, $pwd) or die "couldn't login"; 
print "successfully logged in\n";