use Tk; use Tk::Dialog;

my $mw = new MainWindow;

$mw->Button( -text => "Exit", -command => \&confirm_exit )->pack;

$mw->protocol( WM_DELETE_WINDOW => \&confirm_exit );

my $exit_dlg = $mw->Dialog( -text => "Really exit?", -buttons => [qw(Yes No)], -default_button => 'Yes' );

MainLoop;

warn "exited MainLoop\n";

sub confirm_exit
{
	my $yn = $exit_dlg->Show;
	$yn =~ /y/i or return;
	warn "destroying MainWindow\n";
	$mw->destroy;
}