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 = ) { $txt->insert('end',$buf); ##### Update the Text Widget $txt->update; } }