use Socket;
use CGI;

my $page = connect_host();
print "$page";

sub connect_host {
        my $remote = gethostbyname("football.fantasysports.yahoo.com");
        my $proto  = getprotobyname('tcp');
        my $port   = 80;
        my $remote_host = sockaddr_in($port,$remote);
        socket(SOCK,PF_INET,SOCK_STREAM,$proto);
        connect(SOCK, $remote_host);

        print SOCK "GET / HTTP/1.0\r\n\r\n";

        my $html = <SOCK>;
        return $html;
}