The Perl Programming Language

my $timeout = delete $cnf{timeout}; $timeout = 3*60 unless defined $timeout; ##

##

#! /usr/bin/perl
use warnings;
use strict;
use LWP::UserAgent;
for my $t (0, -1, 1) {
    my $ua = LWP::UserAgent->new( timeout => $t );
    print "*** $t\n", $ua->get('http://www.perl.org')->{_content}, "\n";
}


##

##

*** 0
Can't connect to www.perl.org:443

Connection timed out at /usr/lib/perl5/vendor_perl/5.18.2/LWP/Protocol/http.pm line 51.

*** -1
Can't connect to www.perl.org:80 (timeout)

LWP::Protocol::http::Socket: connect: timeout at /usr/lib/perl5/vendor_perl/5.18.2/LWP/Protocol/http.pm line 51.

*** 1




    The Perl Programming Language - www.perl.org
    



##

##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,