Select Code to Download

#!perl -w

...
it under the same terms as Perl itself.

=cut

#!perl -w

...
sub FileExit  { Tk::exit; }
sub HelpHelp  {}
sub HelpAbout {}