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;