#! /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";
}