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";