Help for this page

Select Code to Download


  1. or download this
    $line=`perl \-e '\$s = shift; \$SIG{ALRM} = sub { kill INT => \$p }; e
+xec(\@ARGV) unless \$p = fork; alarm \$s; waitpid \$p, 0 ' 3 'ls -ltr
+'`;
  2. or download this
    $cmd=`ssh server 'perl \-e '\$s = shift; \$SIG{ALRM} = sub { kill INT 
+=> \$p }; exec(\@ARGV) unless \$p = fork; alarm \$s; waitpid \$p, 0 '
+ 3 'ls -ltra'  '`;