Help for this page
#! /usr/bin/perl -w use strict; ... $button->pack(); MainLoop;
#!/usr/bin/perl -w ... $button; }