Select Code to Download

my $mw = MainWindow->new();
$mw->geometry("+100+100");
...
$mw->overrideredirect(1);

$mw->bind("<Return>", \&do_dialog);

$mw->overrideredirect(0);