Select Code to Download

use Tk;
my $mw = new MainWindow;
...
# If below line is commented out, program works.
$mw->FullScreen(1);
MainLoop;

use Tk;
my $mw = new MainWindow;
...
$tl->bind('all' => '<Key-Escape>' => sub {exit;});
$tl->FullScreen(1);
MainLoop;