http://www.perlmonks.org?node_id=279170


in reply to Tk POE SSL Win32 help

If you just want Tk to get updated, you can add update after you insert your text. e.g.

sub send { tie (*SSL, "Net::SSLeay::Handle", "www.openssl.org", "443") or die "error in tie\n"; if (\*SSL) { print SSL "GET http://index.html \r\n"; } while (my $buf = <SSL>) { $txt->insert('end',$buf); ##### Update the Text Widget $txt->update; } }
Or, if you want to update Tk while it is in a loop, possibly only idling, then try putting $mw->DoOneEvent; inside the loop. This may be what you need to do to get your app working with POE.

HTH.

--
hiseldl
What time is it? It's Camel Time!