__LINUX__
peter@peterjonesdebian:~$ perl -wMstrict -le '$a=time;$SIG{ALRM}=sub{$b=time};alarm 2;<>;print $b-$a;sleep 5;print $b-$a'

2
2