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

my $mw = new MainWindow;
$mw->geometry("400x200");

my $button = $mw->Button(-text    => "Sub test exit",
                 -command => \&callback(),  # exits prematurely
              # -command => \&callback,     # works ok
                          )->pack();

MainLoop;

sub callback{
  print "exiting\n";
  Tk::exit;
}
__END__