use strict;
use warnings;

use Net::OpenSSH;

my $host = shift;
my $stdin;
my $stdout;
my $stderr;

print $host, "\n";

my $ssh = Net::OpenSSH->new(
    $host,
    user                => "user",
    password            => "password",
    timeout             => 30,
    default_stdin_fh    => $stdin,
    default_stdout_fh   => $stdout,
    default_stderr_fh   => $stderr,
);

$ssh->error and die "Can't ssh to $host: " . $ssh->error;

print "stdin is $stdin\n" if defined $stdin ;
print "stdout is $stdout\n" if defined $stdout;
print "stderr is $stderr\n" if defined $stderr ;