use strict;
use Benchmark;
use Net::FTP;
use LWP::Simple;

sub lwp_simple {
	my $data   = get('ftp://ftp.ncbi.nih.gov/refseq/LocusLink/LL.out_xl.gz');
	my $outfile = '>GO_TERMS.CSV';
	if (!$data) { }
	open(OUT, '>LL_tmpl.gz');
	binmode OUT;
	print OUT $data;
	close(OUT);
	sleep 1;
	}

sub net_ftp {
	my $ftp;
	if (!($ftp = Net::FTP->new('ftp.ncbi.nih.gov', Debug=>0))) {
		print "Couldn't log-in";
		return;
		};
	$ftp->login('anonymous', 'anon@anon.com');
	$ftp->cwd('/refseq/LocusLink/');
	$ftp->type('binary');
	$ftp->get('LL.out_xl.gz');
	$ftp->quit();
	sleep 1;
	}

sub lwp_getstore {
	my $url = 'ftp://ftp.ncbi.nih.gov/refseq/LocusLink/LL.out_xl.gz';
	my $file = 'LL.out_xl.gz';
	getstore($url, $file);
	sleep 1;
	}


timethese(100, {
        'LWP'		=> \&lwp_simple,
        'FTP'		=> \&net_ftp,
        'LWP-Store'	=> \&lwp_getstore
        }
    );

##</code><code>##

Benchmark: timing 100 iterations of FTP, LWP, LWP-Store...
FTP: 4011 wallclock secs
  ( 2.31 usr +  2.68 sys =  5.00 CPU) @ 20.01/s (n=100)
LWP: 933 wallclock secs
  ( 4.05 usr +  4.87 sys =  8.92 CPU) @ 11.21/s (n=100)
LWP-Store: 340 wallclock secs
  ( 4.11 usr +  3.70 sys =  7.81 CPU) @ 12.80/s (n=100)