Help for this page

Select Code to Download


  1. or download this
    line 0: $cmd="/usr/bin/perl Install.pl";
line 1: $ssh = Net::OpenSSH->new($host, user => $user, password => $pa
+ssword, port => '22');  $ssh->error and die "Couldn't establish SSH c
+onnection: ".$ssh->error;
line 2: $ssh->system($cmd) or die "Command failed: ".$ssh->error;
line 3: print "Control back to local host\n";
  2. or download this
    # open_ex: ['ssh','-S','/home/user/.libnet-openssh-perl/user-machine.'
+,'-l','user','-p','22','machine','--','/usr/bin/perl Install.pl'],
# _waitpid(2829) => pid: 2829, rc: Inappropriate ioctl for device