Help for this page
>perl -wMstrict -le "use Tk; ... before MainLoop: 'Before' in MainLoop: 'hi there' after MainLoop: 'After all'