Question : How to create modal dialog in Perl/Tk

In the below sample code, how do I force the "toplevel" widget to be 'modal'?  It presently defaults as 'modeless'.

use Tk;

$mw = MainWindow->new;
$mw->title('Main Window');

$t1 = $mw->Toplevel();
$t1->title("Dialog Window");

Answer : How to create modal dialog in Perl/Tk

Use grab.

The following works for me:

use Tk;
use Tk::Widget;

$mw = MainWindow->new;
$mw->title('Main Window');

$t1 = $mw->Toplevel();
$t1->title("Dialog Window");

$t1->raise($mw);
$t1->grab();
MainLoop;