You can fork once for each interval, and then in each child run the sleep + system loop. Or you could use some system that has timers built in, I guess most of the event loops (POE, AnyEvent etc.) have such a facility.

Or use Schedule::Cron.