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;