Take a look at Time::Limit. It is possible that it will be the right tool for the task ahead of you.

See: Self terminating a script after a specified time for a problem similar to yours. Take note of this anonymous reply with some very useful notes about alarm.