my $ssh = Net::OpenSSH->new($host, user => $user, timeout => 30);
my $motd = $ssh->capture({stdin_data => "$password\n\n4\n",
                          stderr_to_stdout => 1});
print $motd;