#!/usr/bin/perl
use strict;
use warnings;
use Net::FTP;

my $ucsc = "hgdownload.cse.ucsc.edu";
my $ucscPathPrefix = "/goldenPath//hg19/database/";
my $ftp = Net::FTP->new($ucsc, Debug => 0) or die "Cannot connect to $ucsc: $@";
$ftp->login("anonymous",'-anonymous@') or die "Cannot login", $ftp->message;
$ftp->binary;
$ftp->cwd($ucscPathPrefix) or die "Cannot change working directory to $ucscPathPrefix", $ftp->message;