$line=`
  cmd 1
  cmd 2
  cmd 3
  alarm () {
    /usr/bin/perl -e '
      alarm shift;
      exec \@ARGV;' -- "\$@"
  }
  alarm 4 cmd 4
  cmd n `;

print "$line";