use Tk;
my $mw = new MainWindow;
$mw->bind('all' => '<Key-Escape>' => sub {exit;});
# If below line is commented out, program works.
$mw->FullScreen(1);
MainLoop;