Help for this page

Select Code to Download


  1. or download this
    my $ssh2 = Net::SSH2->new() ;
$ssh2->connect(HOST) or $ssh2->die_with_error ;
...
$ssh2->auth_ok() ;
my $chan = $ssh2->channel() or $ssh2->die_with_error ;
print "Got a channel\n" ;
  2. or download this
    d:\Perl>sshlogin.pl
Connecting
Connected
Logged in
no libssh2 error registered at D:\Perl\sshlogin.pl line 31.