my $host = 'ftp.ftphost.com';
my $u = 'username';
my $p = 'password';

my $ftp;

unless ($ftp = Net::FTP->new($host)) {
    die "No FTP for you!\n\n";
}

$ftp->login($u, $p);
$ftp->binary;
print $ftp->dir("\\");