my $ftp = Net::FTP->new('foo.example.com')
  or die "can't connect: $@";

$ftp->login( 'leet', 'seKreT' )
  or die 'can't login: ' . $ftp->message;

$ftp->cwd("/pub/foo/bar")
  or die 'cannot set cwd' . $ftp->message;

my @files = $ftp->dir();
$ftp->quit;