Select Code to Download

use strict;
use warnings;
...
my $auth = Net::SSH::Perl::Auth->new('PublicKey', $login) || die "coul
+d not create Auth object";

$auth->authenticate;