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