!/opt/perl-5.8.0/bin/perl

use LWP;
use LWP::Debug qw(level); level('+');

my $browser = LWP::UserAgent->new;
$browser->credentials( 'csgl02:8082', 'Blue Coat Proxy SG', 'u452359' => 'abc123');

my $url='https://csgl02:8082/Secure/Local/console/documentation.htm';

my $response = $browser->get($url);

die "Error: ", $response->header('Blue Coat Proxy SG') || 'Error accessing',
    #('WWW-Authenticate' is the realm-name)
    "\n ", $response->status_line, "\n at $url\n Aborting"
   unless $response->is_success;

print $response->content;

exit;


##</code><code>##

smpd9$ ./test.pl
LWP::UserAgent::new: ()
LWP::UserAgent::request: ()
LWP::UserAgent::send_request: GET https://csgl02:8082/Secure/Local/console/documentation.htm
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
LWP::Protocol::collect: read 25 bytes
LWP::UserAgent::request: Simple response: Unauthorized
LWP::UserAgent::request: ()
LWP::UserAgent::send_request: GET https://csgl02:8082/Secure/Local/console/documentation.htm
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
LWP::Protocol::collect: read 41 bytes
LWP::UserAgent::request: Simple response: Unauthorized
Error: Error accessing
 401 Authentication Required
 at https://csgl02:8082/Secure/Local/console/documentation.htm
 Aborting at ./test.pl line 32.
smpd9$