Help for this page
#!/usr/bin/perl use Tk; ... } }
#!/usr/bin/perl -w # waitwindow.pl ... ); MainLoop();