Perl: Value of response code in HTTP::Request
        Posted  
        
            by lola
        on Stack Overflow
        
        See other posts from Stack Overflow
        
            or by lola
        
        
        
        Published on 2010-06-15T11:07:59Z
        Indexed on 
            2010/06/15
            11:12 UTC
        
        
        Read the original article
        Hit count: 219
        
Hi all,
  So, I am writing a code to get a document from the internet. The document size is around 200 KB. This is the code:
!/usr/local/bin/perl -w
use strict;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $url = "SOME URL";
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req);
if($res->is_success){
   print $res->content ."\n";
}
else{
  print "Error: " . $res->status_line;
}
Now, the only problem is I can't mention what the URL is.
However, the output is: "Error: 500 read timeout". When I checked the link externally, the data is being downloaded in under 5 seconds.
I even changed the timeout to 1000s, but it still didn't work. How should I go about finding more information related to the response. The size of the file (around 200KB) is also not too great to warrant a read timeout. The server is also not a busy one, didn't give a problem whenever I checked the link on the browser.
Thanks.
© Stack Overflow or respective owner