my $var;
my $dialog = $mw->Dialog(...);
$var = $dialog->Show();
$dialog->bind('<Return>',sub{$var = 'ok'});