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