FTP Script Template using Perl

    #!/usr/bin/perl -w
    #
    #
    #
    use strict;
    use Net::FTP;

    my $debug      = 1;
    my $user       = 'zzz';
    my $passwd     = 'zzz';
    my $host       = 'ftp.zzz';

    my $local_dir  = 'zzz';
    my $local_fn   = 'zzz';
    my $remote_dir = 'zzz';
    my $remote_fn  = 'zzz';

    chdir($local_dir)                     or die("can't chdir $local_dir\n");

    my $ftp = Net::FTP->new($host, Debug => $debug)
                                          or die("can't connect: $@\n");
       $ftp->login($user, $passwd)        or die("can't login\n");
       $ftp->binary();

       $ftp->cwd($remote_dir)             or die("can't cwd $remote_dir\n");
       $ftp->put($local_fn,  $remote_fn)  or die("can't put $local_fn\n");
       $ftp->get($remote_fn, $remote_fn)  or die("can't get $remote_fn\n");

       $ftp->quit();

    exit(0);