$line=`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'  ' `;