Help for this page
#!/usr/bin/perl use Tk; ... $MainWindow -> destroy; }
#!/usr/bin/perl use warnings; ... MainLoop;