never done this, but it seems to be a FAQ:

perldoc -q timeout

another solution might be trying threads. but i dunno how to kill a thread in perl.