#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = new MainWindow;
$mw->title("Close test");
$mw->geometry("400x250");

#prevents mw from closing
$mw->protocol('WM_DELETE_WINDOW' => sub {
                print "do stuff here before the exit\n";
        exit;
           });

MainLoop;
[download]

Trap the window manager exit signal and redirect to your own exit routine. Cross platform. This won't trap someone closing or entering ctrl-c in the command.exe window. The best way to defend against that is to use wperl. (under windows)

Oops. zentara posted the correct answer while I was typing. Anyway; me too!

use warnings; 
use strict;
use Tk;
use Tk::DialogBox;

my $mw = MainWindow->new;
$mw->protocol('WM_DELETE_WINDOW' => \&myexit);

MainLoop;

sub myexit{
    my $db = $mw->DialogBox(-title => "Are you sure you want to exit?"
+, -buttons => ['OK', 'Cancel']);
    my $answer = $db->Show;
    Tk::exit if $answer eq 'OK';
}
[download]

>I'm not sure if this works on Windows, but on Linux, this disables or intercepts the window manager's close button.
>$mw->protocol('WM_DELETE_WINDOW' => sub {

>$mw->protocol('WM_DELETE_WINDOW' => \&myexit);
WoW! It does work on Windows too! Thanks a lot, guys!