Select Code to Download

...
@EXPORT    = qw(Exists Ev exit MainLoop DoOneEvent tkinit);
...

#!/usr/bin/env perl

...
MainLoop;

print "After MainLoop\n";

$ pm_tk_exit_vs_destroy.pl  # Using 'Exit' button
$ pm_tk_exit_vs_destroy.pl  # Using 'Destroy' button
After MainLoop
$