$tl = $main_window->Toplevel( -title => 'Modal Dialog' );
$tl->resizable( 0, 0 );
$tl->transient($tl->Parent->toplevel);
$tl->protocol('WM_DELETE_WINDOW' => sub {});   
$tl->grab;