Help for this page

Select Code to Download

Select or download this

#!/usr/local/bin/perl -w

...
$mw->Button(-text => 'Quit',
        -command => sub{exit} )->pack;
MainLoop;

Select or download this

#!perl -w

...
    print "ERROR:$@" if $@;
    print "\n";
}