You are looking at a very old, but free version of the course. If you are interesed the most recent version, check it out on the Perl Maven site.

8.8. ftp using Net::FTP

Example 8-6. examples/network/

use strict;
use warnings;

use Net::FTP;
use File::Basename qw(dirname);
use File::Spec;
my $DEBUG = 1;

if (not @ARGV) {
    print "Usage:\n";
    print "       $0 FILE [FILES]\n";

my $ftp = Net::FTP->new('') or die $!;
$ftp->login('gabor', 'the password of gabor') or die $!;
my $pwd = $ftp->pwd;

foreach my $file (@ARGV) {
    my $dir  = dirname $file;

If you are interested in on-site trainings by the author, please contact me directly.