Help for this page

Select Code to Download

Select or download this

 require LWP::UserAgent;
 
...
 else {
     die $response->status_line;
 }