Help for this page

Select Code to Download

Select or download this

use LWP;
use HTTP::Headers;
...
 else {
  print $res->status_line, "\n";
}