#!/usr/bin/perl --
use strict; use warnings;
use LWP::Simple qw/ $ua /;
$ua->show_progress(1);
$ua->get('http://example.com');
__END__
** GET http://example.com ==> 200 OK (2s)