Help for this page

Select Code to Download

Select or download this

  use Net::OpenSSH;

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

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

Select or download this

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