my $data   = get('ftp://ftp.ncbi.nih.gov/refseq/LocusLink/LL_tmpl.gz');
my $outfile = '>GO_TERMS.CSV';

if (!$data) {
	exit();
	}

open(OUT, '>LL_tmpl.gz');
binmode OUT;
print OUT $data;
close(OUT);

##</code><code>##

use Net::FTP;

my $ftp = Net::FTP->new('ftp.ncbi.nih.gov', Debug=>0);

$ftp->login('anonymous', 'anon@anon.com');
$ftp->cwd('/refseq/LocusLink/');
$ftp->type('binary');
$ftp->get('LL_tmpl.gz');
$ftp->quit();