Help for this page
#!/usr/bin/perl -w ... -fill => 'yellow'); MainLoop;
#!/usr/bin/perl -w use Tk; ... MainLoop;