Works fine on 5.16.1 for me:
C:\test\ACA>\perl64-16\bin\perl
print $];
use CGI qw/:standard/;
use CGI::Carp (fatalsToBrowser);
require LWP::UserAgent;
print header;
my $ua = LWP::UserAgent->new;
my $url = 'http://google.com';
my $response = $ua->get($url);
if ($response->is_success) {
print $response->decoded_content; # or whatever
}
else {
die "failed: $url : ", $response->status_line;
}
^Z
5.016001Content-Type: text/html; charset=ISO-8859-1
<!doctype html><html itemscope="itemscope" itemtype="htt
window.google={kEI:"DlinUZt4qZfQBeOxgbAO",getEI:function
r:0,ml:function(){},kHL:"en",time:function(){return(new
d.onabort=function(){delete f[e]};f[e]=d;!c&&-1==b.searc
a.test(c)&&google.https()?(google.ml(Error("GLMM"),!1,{s
(function(){var d=!1;google.sn="webhp";google.timers={};
try{}catch(e){}})();
var _gjwl=location;function _gjuc(){var a=_gjwl.href.ind
function _gjp(){(!window._gjwl.hash||!window._gjuc())&&s
window._gjp&&_gjp();</script><style>#gbar,#guser{font-si
f}.gsfs{font:17px arial,sans-serif}.ds{display:inline-bo
ne-block;margin:0 12px}.lsb:active{background:#ccc}.lst:
if (!iesg){document.f&&document.f.q.focus();document.gbq
}
})();</script><textarea id="csi" style="display:none"></
=gb_70 href="https://accounts.google.com/ServiceLogin?hl
048" name="q" size="57" style="color:#000;margin:0;paddi
><a href="https://plus.google.com/103583604759580854844"
if(!google.xjs){window._=window._||{};window._._DumpExce
le.hs.init()});if(google.j&&google.j.en&&google.j.xi){wi
for(var l=c=0,m;l<b;++l)m=k[l],m.complete||"string"!=typ
function n(){if(google.timers.load.t){google.timers.load
</script></body></html>
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
failed: $url :
