This is what others mentioned:

use LWP::UserAgent;
use HTTP::Request;

my $agent = new LWP::UserAgent();
while (<DATA>) {
    chomp;
    my $res = $agent->request(new HTTP::Request(GET => $_));
    if ($res->is_success) {
        print $res->content;
    } else {
        print "failed to get $_\n";
    }
}

__DATA__
http://www.yahoo.com
http://www.cnn.com
http://www.somethingnotexists.abc
[download]

Well, there is no harm to play with socket, so here you are (pay attention to that comment I made in the following demo):

use IO::Socket;

while (<DATA>) {
    chomp;
    print "try to connect to host $_ ...\n";
    $sock = new IO::Socket::INET(PeerAddr  => $_,
                                 PeerPort  => 80,
                                 Proto => 'tcp',
                                 Timeout => 10
                                );
    if (!defined($sock)) {
        print "failed to connect to host $_\n";
        next;
    } else {
        print "connected to host $_\n";
    }
    print $sock "GET http://$_ HTTP/1.1\r\n" .
                "Host: $_\r\n\r\n";
    print $_ while (<$sock>); #this will fail to end, if peer does not
+ close the connection
    close($sock);
}

__DATA__
www.yahoo.com
www.cnn.com
www.somethingnotexists.abc
[download]