$ perl -wMstrict -e '$SIG{ALRM}=sub{print time." Timeout"};print time." Before\n";alarm 2;sleep 10;print time." After\n"'
1532118865 Before
1532118867 Timeout1532118867 After