$ perl -wMstrict -e '$SIG{ALRM}=sub{print time." Timeout"};print time." Before\n";alarm 2;$a=time+10;1 while time<$a;print time." After\n"'
1532118963 Before
1532118965 Timeout1532118973 After