Unfortunately, the threds api does not provide for this currently and using the normal eval/alarm method doesn't seem to co-exists well with threads.

However, if you are on Win32, I do know of a very dirty way to do this, but it could leave perl in a unpredictable state.