$ perl -wMstrict -e 'alarm 2; $SIG{ALRM}=sub{
    print "Timeout reached" }; while(){}'
^C
$ perl -wMstrict -e 'alarm 2; $SIG{ALRM}=sub{
    print "Timeout reached\n" }; while(){}'
Timeout reached
$ perl -wMstrict -e '$|++; alarm 2; $SIG{ALRM}=sub{
    print "Timeout reached" }; while(){}'
Timeout reached