do{
         
         Win32::GUI::DoEvents();
         
        } until ($::MSG{"Dialogue"}{"Text"} ne '');


##</code><code>##

        $dlg->Dialog();
        print "User Entered:".$::MSG{"Dialogue"}{"Text"}."\n";