$ perl -d ./get_url.pl http://www.google.co.uk
Loading DB routines from perl5db.pl version 1.19
Editor support available.
Enter h or `h h' for help, or `man perldebug' for more help.
main::(./get_url.pl:8): my $header = HTTP::Headers->new( Proxy_Authorization => 'Basic ZW1lYVxyYmlzc2V0OnJvbjQ1Ng==' );
DB<1> s
HTTP::Headers::new(/usr/local/lib/perl5/site_perl/5.8.0/HTTP/Headers.pm:70):
70: my($class) = shift;
DB<1> s
HTTP::Headers::new(/usr/local/lib/perl5/site_perl/5.8.0/HTTP/Headers.pm:71):
71: my $self = bless {}, $class;
DB<1> s
HTTP::Headers::new(/usr/local/lib/perl5/site_perl/5.8.0/HTTP/Headers.pm:72):
72: $self->header(@_) if @_; # set up initial headers
DB<1> x $header
0 undef
DB<2> r
scalar context return from HTTP::Headers::new: 'proxy-authorization' => 'Basic ZW1lYVxyYmlzc2V0OnJvbjQ1Ng=='
main::(./get_url.pl:10): my $ua = new LWP::UserAgent;
DB<2> r
An Error Occurred
An Error Occurred
502 Proxy Error ( The ISA Server denies the specified Uniform Resource Locator (URL). )
Debugged program terminated. Use q to quit or R to restart,