You can have a look at Main::Fileevent in Tk. Its pretty handy for looping, sleeping etc.
Do a googlesearch for Fileevent + Tk, or check out page 305 of Learning Perl/Tk from O'Reilly.

Also Known As : Captain Contraption

if ($mr_leisure) { bow; }
[download]

this is still not finished