#!/usr/bin/perl -w

use strict;
use Net::FTP;
use Data::Dumper;

my $FTPdHandle;
my @FTPdDir;

$FTPdHandle = Net::FTP->new('ftp.funet.fi', Debug=>1);
$FTPdHandle->login("ftp","mypassword\@com.com");
$FTPdHandle->cwd("/pub");
@FTPdDir = $FTPdHandle->ls();

print Dumper(@FTPdDir);

$FTPdHandle->quit;