I run the following code, and when I click the little X, I get "the main loop has ended normally at - line 4.".

use Tk;
tkinit;
MainLoop;
die "the main loop has ended normally";
__END__
[download]

You can run whatever code you want after MainLoop returns (the user exits the gui).

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"

I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).

** The third rule of perl club is a statement of fact: pod is sexy.