#! perl -slw
use strict;
use Time::HiRes qw[ time ];
use LWP;
use LWP::Simple;
use Win32::Internet;

$|++;

my $url = 'http://www.mirrorservice.org/sites/ftp.funet.fi/pub/languages/perl/CPAN/authors/id/J/JD/JDB/Win32-Internet-0.084.tar.gz';

my $start1 = time;
my $file1 = get( $url );
printf "\nLWP::Simple took %7.3f seconds\n", my $time1 = time() - $start1;
print "Size: ", length $file1;
printf "Transfer rate: %5.2f bytes/sec\n", length( $file1 ) / $time1;


my $inet = new Win32::Internet;
my $start2 = time;
my $file2 = $inet->FetchURL( $url );
printf "\nWin32::I took %7.3f seconds\n", my $time2 = time() - $start2;
print "Size: ", length $file2;
printf "Transfer rate: %5.2f bytes/sec\n", length( $file2 ) / $time2;


my $ua = LWP::UserAgent->new;
my $start3 = time;
my $resp = $ua->get( $url );
printf "\nLWP::UA took %7.3f seconds\n", my $time3 = time() - $start3; ## Corrected [Mr Mischief]++
my $file3 = $resp->content;
print "Size: ", length $file3;
printf "Transfer rate: %5.2f bytes/sec\n", length( $file3 ) / $time3;