use strict;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
#use LWP::Debug qw(level); level('+');

my ($request, $response, $ua, $status_line, $url);
 
print "Content-type: text/html\n\n";
 
$ua = LWP::UserAgent->new;
 
$ua = new LWP::UserAgent;
$ua->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Q312461; YComp 5.0.0.0)");
$ua->env_proxy;
$ua->proxy('http', 'http://proxy.com/');
$ua->timeout(10);
 
$url ='http://www.netscape.com'; # return "200 OK"
#$url ='http://wp.netscape.com/fun/index.html'; # return "404 Not Found"
 
$request = new HTTP::Request('GET', $url);
$request->header('Accept' => 'text/html');
 
$response = $ua->request($request);
 
$status_line = $response->status_line;
 
print "$status_line\n";