use Net::OpenSSH;

die "Couldn't establish SSH connection: ".$ssh->error if $ssh->error;
$ssh->system({stdin_data => <<EOD}, 'bash', '-s') or die "command failed: " . $ssh->error;
# ...
EOD