If you need something a bit more forceful and more reliable than alarm*, you could fork the work off to a child and kill the child if it takes too long to respond.

* — alarm won't interrupt a very long pattern match or XS function call, for example. See the documentation on safe signals in perlipc.