#!/usr/bin/perl

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

my $url  = 'http://www.google.com';
my $user = 'user';
my $pass = 'pass';
my $domain = 'domain';

my $ua = LWP::UserAgent->new();
$ua->env_proxy;
$ua->credentials('proxy.srvr.com:8080', 
                 $domain, $user, $pass);
my $res = $ua->get($url);
print $res->header("Server"), "\n";