my $server = "theSite.com";
    my $proto = getprotobyname("tcp") || 6;
    my $port = getservbyname("http", "tcp") || 80;
    my $packed_remote_ip = inet_aton($server);
    my $s_server = sockaddr_in($port, $packed_remote_ip);

    $req1="GET /board/ HTTP/1.0\r\n";
	$req1 .=  "Host: $server\r\n";
	$req1 .= "Accept: text/html, text/plain, text/css, text/sgml, */*;q=0.01\r\n";
	$req1 .= "Accept-Language: en\r\n";
	$req1 .= "User-Agent: Lynx/2.8.6rel.4 libwww-FM/2.14 SSL-MM/1.4.1 OpenSSL/0.9.8i\r\n";
	$req1 .= 'Cookie2: $Version="1"' . "\r\n"; # I have no idea what this is for but lynx sends it so.. so am I!
	$req1 .= "\r\n";

	socket(SK_CLIENT, PF_INET, SOCK_STREAM, $proto) || die("Socket Error req1: $! \n");
	connect(SK_CLIENT,$s_server) || die("Connect Error: $! \n");
	send(SK_CLIENT,$req1,0) || print "send error: $! \n";
    $data = 1;
	while ($data)
	{
		recv(SK_CLIENT, $data, 100, 0);
		$thePage .= $data;
	}

	close SK_CLIENT || die("Close error: $!");

    print "$thePage\n";