my $ssh = Net::OpenSSH->new($host, user => $USERNAME, password => $PASSWORD, str
ict_mode => 0);

$ssh->error and die "Couldn't establish SSH connection: " . $ssh->error;

$ssh->system('!bash') or die "remote command failed: " . $ssh->error;

print "!bash done\n";

$ssh->system('pwd') or die "remote command failed: " . $ssh->error;

print "pwd done\n"; # never gets here. it hangs