Select Code to Download

use LWP::UserAgent;
use HTTP::Request::Common;
...

if ($response->is_success) {print "It worked!->" . $response->code . "
+\n"}
else {print "It didn't work!->" . $response->code . "\n"}

LWP::UserAgent::new: ()
LWP::UserAgent::request: ()
...
LWP::UserAgent::request: Simple response: Unauthorized
LWP::Authen::Ntlm::authenticate: authenticate() has been called
LWP::Authen::Ntlm::authenticate: In first phase of NTLM authentication