Help for this page

Select Code to Download


  1. or download this
    'perl\\ -e\\ \\\'\\$s\\ \\=\\ shift\\;\\ \\$SIG\\{ALRM\\}\\ \\=\\ sub\
+\ \\{\\ kill\\ INT\\ \\=\\>\\ \\$p\\ \\}\\;\\ exec\\(\\@ARGV\\)\\ unl
+ess\\ \\$p\\ \\=\\ fork\\;\\ alarm\\ \\$s\\;\\ waitpid\\ \\+\\$p\\,\\
+ 0\\ \\\'\\ 3\\ \\\'ls\\ -ltr\\\''
  2. or download this
    use Net::OpenSSH;
my $ssh=Net::OpenSSH->new($server);
...
waitpid $p, 0;
EOC