in reply to problem w/ LWP::UserAgent?

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>

[download]
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 :

Replies are listed 'Best First'.
Re^2: problem w/ LWP::UserAgent?
by dorianwinterfeld (Acolyte) on May 30, 2013 at 17:45 UTC
    This is what I get: 
    C:\Documents and Settings\dorian>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.016003Content-Type: text/html; charset=ISO-8859-1


    Software error:
    

    failed: http://google.com : 500 Status read failed: A non-blocking socket o
peration could not be completed immediately. at - line 18.

    

    
For help, please send mail to this site's webmaster, giving this error message
and the time and date of the error.


    
Thu May 30 13:43:04 2013 -: failed: http://google.com : 500 Status read failed
: A non-blocking socket operation could not be completed immediately. at - line
18.
[reply]

      Have you installed some SSL module or another?

      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.
[reply]
        not intentionally
[reply]
        No, I didn't. I am still trying to debug this problem.
[reply]

In Section Seekers of Perl Wisdom