use strict;
use warnings;
use Getopt::Long;
use LWP::UserAgent;
use HTTP::Request::Common qw(GET);

my $url;

sub usage()
{
  die "Usage: $0 --url=http://my.yahoo.com/ \n";
}

GetOptions('url=s' => \$url);
if (! defined $url )
{
  usage();
}

my $ua = LWP::UserAgent->new(env_proxy => 1, keep_alive => 1, timeout => 30,);
$ua->agent("Mozilla/6.0"); 

# Define user agent proxy
#$ua->proxy(['http', 'ftp'] => 'http://nicolew:password@192.168.1.10');
#$ua->proxy(['http', 'https'] => 'https://192.168.1.10:8080');

print "username: ";
my $username = <STDIN>;
chomp($username);
print "password: ";
my $password = <STDIN>;
chomp($password);
$ENV{HTTP_PROXY} = 'http://$username:$password@192.168.1.10:8080';
$ENV{HTTPS_PROXY} = 'https://$username:$password@192.168.1.10:8080';
$ua->env_proxy();
print "proxy is $ENV{HTTP_PROXY} \n";
print "url is $url \n";

# Request object
my $req = HTTP::Request->new('GET', "$url");
#$req->proxy_authorization_basic($username,$password);

# Make the request
my $res = $ua->request($req);

# Check the response
if ($res->is_success) {
    print $res->content;
} else {
    print $res->status_line . "\n";
}

exit 0;

##</code><code>##

use strict;
use warnings;
use LWP::UserAgent;

my $wsr = LWP::UserAgent -> new;
$wsr -> timeout( 5 );
print "username: ";
my $username = <STDIN>;
chomp($username);
print "password: ";
my $password = <STDIN>;
chomp($password);
#$ENV{HTTP_PROXY} = 'http://192.168.1.10:8080';
#$wsr->credentials('http://192.168.1.10:8080/', 'IR', $username => $password);
#$wsr->env_proxy();

my $url = shift or die "URL expected\n";

my $request = HTTP::Request->new( HEAD => $url );
$request->proxy_authorization_basic($username,$password);
my $response = $wsr->get($url);

print $response->status_line, "\n";
print $response->is_success, "\n";