Are you sure the server is sending the correct data to the client? What happens when you run:

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

my $remote_host = "www.perlmonks.org";
my $remote_port = 80;
my $socket;

$socket = IO::Socket::INET->new(PeerAddr => $remote_host, PeerPort =>
+$remote_port, Type => SOCK_STREAM, Proto => "tcp") || die "Problem: $
+!
+\n";

print $socket "GET / HTTP/1.0\r\n\r\n";
my $data = <$socket>;
print STDOUT $data;

close $socket;
[download]

If that prints out "HTTP/1.1 200 OK" then there is probably a problem with the server and not the client.