#!/usr/bin/perl -w

use strict;
use Net::FTP;

my ($ftp, $destination, $username, $password, $filename, $path);

$destination="genome.ucsc.edu";
$username="anonymous";
$password="me\@there.com";
$path="/goldenPath/05apr2002/chromosomes/";
$filename="chr5.zip";

$ftp = Net::FTP->new($destination, Debug => 0) || die "Couldn't connect! $!\n";
$ftp->login($username,$password) || die "Couldn't log in! $!\n";
$ftp->cwd($path) || die "couldn't cwd! $!\n";
$ftp->get($filename) || die "get($filename) failed: " . $ftp->code() . ": " . $ftp->message();
$ftp->quit;