#!/usr/bin/perl

# passthrough SSH script

use Net::SSH qw(sshopen2);
use strict;

my $user = "username";
my $host = "hostname";
while ( my $cmd = <> ) {
    last if $cmd =~ /exit_passthrough/;
    sshopen2("$user\@$host", *READER, *WRITER, "$cmd") || print "ssh: $!";
    my $result = '';
    $result .= $_ while <READER>;
    print $result;
}
close READER;
close WRITER;