use Net::OpenSSH;

my $host = 'server';
my $userid = 'userid';
my $pass = 'password';

my $ssh = Net::OpenSSH->new('$host');

##</code><code>##

 _home => do {
		     local $SIG{__DIE__};
		     local $SIG{__WARN__};
		     local $@;
		     eval { Cwd::realpath((getpwuid $>)[7]) } },