#!/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;

##</code><code>##

$VAR1 = 'CPAN';
$VAR2 = 'FreeBSD';
$VAR3 = 'Linux';
$VAR4 = 'NeXT';
$VAR5 = 'NetBSD';
$VAR6 = 'OS';
$VAR7 = 'README';
$VAR8 = 'TeX';
$VAR9 = 'X11';
$VAR10 = 'amiga';
$VAR11 = 'archive';
$VAR12 = 'astro';
$VAR13 = 'atari';
$VAR14 = 'cae';
..
..
<snip>