use Net::FTP;

my $host = 'yoursite.com';
my $u = 'user';
my $p = 'pass';

my $ftp = Net::FTP->new($host, Debug => 1) or die "No FTP for you!\n\n";

$ftp->login($u, $p) or die "Login failed user:$u pass:$p\n";
$ftp->binary;

print "The CWD is: ", $ftp->pwd(), "\n\n";
print "The contents of the dir:\n", join("\n", $ftp->dir()), "\n";