Select Code to Download

$req->header(Accept => "text/html, */*;q=0.1");

$req->header(Accept => "*/*; q=0.1, text/html");

use LWP::Simple;

...
   # there was a problem!
   warn 'Failed getting HTML file'
}