I'm not terribly familiar with Net::Telnet, but I don't see why you'd want to go about it that way (am I missing a situation where that'd be better)...

The first thing I see off the top of my head that might be an error is that in it's simplest form, the HTTP protocol requires two character return sequences to actually have the webserver return anything. Also, yahoo is a bad place to test "simple" http protocols as well. You may want another server to try it out on.

Therefore, you'd need to: 'GET /\r\n\r\n'

Also, I'd suggest IO::Socket ala:

#!/usr/bin/perl -w
    use strict;
    use IO::Socket;
    my $sock = IO::Socket::INET->new(
                        Proto    => "tcp",
                        PeerAddr => "www.metacrawler.com",
                        PeerPort => "80",
                    )
                  or die "cannot connect!";

    print $sock "GET /\r\n\r\n";
    while ( <$sock> ) { print }
[download]

Good luck. Perldoc is your friend. --jay