my $req = HTTP::Request->new(GET => 'http://localhost/dbconnect/instructions.htm'); $req->header(Accept => "text/html, */*;q=0.1"); my $res = $ua->request($req); # Check the outcome of the response if ($res->is_success) { print HTTP $res->content; } else { print LOG $res->status_line, "\n"; }