$ perl -wMstrict -e 'alarm 2; $SIG{ALRM}=sub{
    print "Timeout reached" };<>'
^C
$ perl -wMstrict -e 'alarm 2; $SIG{ALRM}=sub{
    print "Timeout reached\n" };<>'
Timeout reached
^C
$ perl -wMstrict -e 'alarm 2; $SIG{ALRM}=sub{
    print STDERR "Timeout reached" };<>'
Timeout reached^C