sub start {
    $tl = $mw->Toplevel;
    $tl->title("B");
    $tl->focus;
    $tl->grab;
    $tl->Button( -text => "B", -command => sub{ destroy $tl } )->pack;
}