$ssh = Net::SSH::Perl->new($host);
$ssh->login($login,$passwd) || myAuditLog(LOG,"Login has failed. $!");