$ssh2->connect(HOST) or $ssh2->die_with_error ;
$ssh2->auth_password($login{user}, $login{password}) ;
$ssh2->auth_ok() ;
print "Logged in\n" ;
my $chan = $ssh2->channel() or ssh2->die_with_error ;
print "never get here\n" ;