#!/usr/bin/perl --
use strict;
use warnings;
use LWP::Simple qw! $ua !;
use Time::HiRes qw! time !;

Main( @ARGV );
exit( 0 );

sub Main {
    print time, "\n";
    $ua->timeout( 1/1000000 );
    $ua->show_progress(1);
    $ua->get(q!http://example.com/!);
    print time, "\n";
}
__END__
1301533357.73438
** GET http://example.com/ ==> 500 Can't connect to example.com:80 (timeout)
1301533357.96767