#!C:/Perl/bin/perl.exe

use LWP::Simple;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use HTML::LinkExtor;
use LWP::Authen::Ntlm;


my $URL= "http://eonet.level3.com/";

$browser = LWP::UserAgent->new(); 
$browser->timeout(10); 
my $request = HTTP::Request->new(GET => $URL);
my $response = $browser->request($request);
if ($response->is_error()) {printf "%s\n", $response->status_line;}

$contents = $response->content(); 

#print $contents;

print $response->status_line(), "\n";
print $response->headers()->as_string();