#!/usr/local/bin/perl

use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;

my $ua = new LWP::UserAgent;

##$ua->proxy('http', 'http://my_domain\my_username:my_passwd@10.10.10.10:8080/');

$ua->proxy('http', 'http://10.10.10.10:8080/');
$ua->no_proxy('localdomain.com');

my $request = new HTTP::Request('GET', $ARGV[0]);

##$request->proxy_authorization_basic( 'my_domain\my_username', 'my_passwd' );

my $response = $ua->request($request);

if ($response->is_success) {
    print $response->content;
    } else {
    print $response->error_as_HTML;
}