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();