Hmm, I now have it working. I replaced :

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

with

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

Which by the way the Docs say explicitly NOT to do. Are there any potential gotchas I should be aware of when I use this ?

Talwyn