1	#!/usr/bin/env perl
     2	use strict;
     3	use warnings;
     4	use Net::FTP;
     5	
     6	my $host = 'ftp.example.com';
     7	my $user = 'smith';
     8	my $pass = 'secret';
     9	my $dir_name = '/';
    10	my $target_dir = '/var/tmp/ftp-download';
    11	my $tmp_dir = '/var/tmp';
    12	my $last_index_file = '/var/tmp/last-index';
        (...)
    42	my $ftp = Net::FTP->new($host);
    43	$ftp->login($user, $pass);
    44	$ftp->cwd($dir_name);
    45	my @dir = $ftp->ls();