!/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;