in reply to Perl/Tk without events

Can you post more code? Something that we can try to run to see what happens ourselves (in other words, the complete program?)