Help for this page

Select Code to Download

Select or download this

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