My Perl script runs an external program (which takes a single command-line parameter) and processes its output. Originally, I was doing this:
my @result = `p
You may want to use alarm system call as in perldoc -f alarm.