use Tk;
        use Tk::MDI;

        $mw = tkinit;
        $mdi = $mw->MDI(
                -style=>'win32',
                -background=>'white');

        $child2 = $mdi->add(-titletext=>'Listbox Title');
        $child2->geometry("275x250+100+10"); 
        $lb = $child2->Listbox->pack;
        $lb->insert(0,"A Listbox");
        
        MainLoop;