Select Code to Download

#!/usr/bin/perl
use warnings;
...

# Throw error if page not found
$agent->success() or die "Can't fetch the Requested page";

LWP::UserAgent::new: ()
LWP::UserAgent::request: ()
...
LWP::UserAgent::send_request: GET http://10.4.4.4:8080/admin
LWP::Protocol::http::request: ()
Error GETing http://10.4.4.4:8080/admin: Unauthorized at /Library/Perl
+/5.8.8/LWP/Authen/Basic.pm line 56

#!/usr/bin/perl
use warnings;
...

# Throw error if page not found
$agent->success() or die "Can't fetch the Requested page";

LWP::UserAgent::new: ()
LWP::UserAgent::request: ()
...
LWP::UserAgent::request: Simple response: OK
WWW::Mechanize=HASH(0x9429e0)->status()
WWW::Mechanize=HASH(0x9429e0)->content()