my $url = "http://www.site.com/folder/page.html";

# Create a request
my ($host, $port, $path, $sock, $line, $status, $protocol);
my $cr = "\015\012";

($url =~ m,^http://([^:/]+):?(\d*)(.*),i) and (($host, $port, $path) = ($1, $2, $3));
$path ||= '/';
$port ||= 80;
$path =~ s/#.*//;

$host;
use IO::Socket;
$sock = new IO::Socket::INET ( PeerAddr => $host,
PeerPort => 80,
Proto => 'tcp',
Type => SOCK_STREAM,
) or die undef, $@;
$sock->autoflush(1);
$sock->timeout(5);
print $sock "GET $path HTTP/1.0$cr";
print $sock "Host: $host$cr";
print $sock "User-Agent: Links SQL $cr$cr";
my $response = <$sock>;
($protocol, $status) = split / /, $response;
close $sock;

print $status;