my $ssh = Net::SSH::Perl->new("host", @key);
$ssh->login;

my ($out, $err, $exit) = $ssh->cmd("uname -a");

##</code><code>##

./my_ssh_script <<EOT
passphrase
EOT