if(! Exists($obj->{mw})) 
    {    
        $obj = bless {mw => $wind->Toplevel()};
        $obj->{mw}->title("Child Window");