Select Code to Download

use LWP::UserAgent;
use HTTP::Request::Common;
...
else {
   print "It didn't work!->" . $response->code . "\n"
}