Help for this page
my $ssh = Net::SSH::Perl->new("host", @key); $ssh->login; my ($out, $err, $exit) = $ssh->cmd("uname -a");
./my_ssh_script <<EOT passphrase EOT