## Perl - 14 bytes ##

<!-- language: lang-perl -->

    alarm<>;{redo}

Sets a `SIGALRM` to be sent in `input` seconds, which terminates the script. In the meantime, it spins in a busy-wait.

Sample usage:

<!-- language: lang-perl -->

    $ echo 4 | perl stress.pl
    Terminating on signal SIGALRM(14)

---

## Perl - 12 (+1) bytes ##

If command line options are counted as one byte each, this could be reduced to **13 bytes** using a `-n`:

<!-- language: lang-perl -->

    alarm;{redo}

Sample usage:

<!-- language: lang-perl -->

    $ echo 4 | perl -n stress.pl
    Terminating on signal SIGALRM(14)