Have you tried the alarm SECONDS
function (In an eval block) - it's usage as a timeout timer is described in perlfunc.
"We are enthusiastically pro-laugh, we are pro-choice as well. We respect each and every individualÃÂs right not to laugh. If you want to be miserable, go right ahead. Whatever makes you happy."