perl에서 timer 걸기

안녕하세요.

perl에서 몇 초 단위로 타이머를 어떻게 걸어줄 수 있는지 궁금합니다.

구글에서 찾아본 결과 Time::HiRes 모듈을 사용하면 되는거 같은데 아래의

프로그램은 타이머가 걸리기도 전에 프로그램이 그냥 종료되어 버립니다.

어떻게 하면 좋겠습니까?

use Time::HiRes qw ( setitimer ITIMER_VIRTUAL time );

$SIG{VTLARM} = sub { print time, "\n" };
setitimer(ITIMER_VIRTUAL, 10, 2.5);