There was a thread recently on firing an event every second - see Re^5: The most precise second (timer) for a solution: clock_nanosleep from Time::HiRes.