C:\test>perl -E"$c=0;eval{ alarm 10; ++$c while 1; alarm 0;}"
Terminating on signal SIGALRM(14)