my $ssh = Net::OpenSSH->new($host,
                            user => $USERNAME,
                            password => $PASSWORD,
                            strict_mode => 0);
$ssh->error and die "Couldn't establish SSH connection: " . $ssh->error;

$ssh->system('!pwd') or die "remote command failed: " . $ssh->error;
print "pwd done\n";