Made up this demo, which partly used your code. I tested and it worked. To use just enter something like www.perlmonks.com

Compare this with yours and see what's the difference.

use Tk;
use IO::Socket::INET;
use strict;

my $mw = new MainWindow;
my $sndtxt = "www.google.com";
my $nameEntry = $mw->Entry(width => 80, textvariable => \$sndtxt)->pac
+k;
$nameEntry->bind('<Return>', sub {my $sock = new IO::Socket::INET(Prot
+o=> "tcp", PeerAddr=> $sndtxt, PeerPort => "80") || die "failed";
                                  #chomp $sndtxt;
                                  printx($sock, "GET http://$sndtxt/ H
+TTP/1.1\r\nHost: $sndtxt\r\n\r\n");
                                  $sock->close();}
                );
my $text = $mw->Scrolled("Text", width => 80, height => 30, -scrollbar
+s => "se")->pack;
MainLoop;

sub printx {
    my $sock = shift;    
    print $sock shift;

    $text->delete("1.0", "end");
    while (<$sock>) {
        print $_;
        $text->insert("end", $_);
    }
}
[download]