Select Code to Download

#!/usr/bin/perl

...
  $ssh->close();
}
close(LOG);

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