#!/usr/bin/perl -wT

use strict;
use File::Copy;

...

chdir "/var/files" or die "/var/files: $!\n";
-f "/var/files/info" or die "No info NO TRANSFER !\n";

my @ftp_locations = ($directory_1, $directory_2);

# open the file safely or complain it wouldn't open
open(FILE, "<", "info") or die "Failed to open info file: $!";

# Read all the lines in from info
my @files;
for(my $i = 1; $i <= @ftp_locations; $i++) {
        $_ = <FILE>;

        s/\W*$//;            # remove trailing whitespace
        next if (!$_);       # skip empty lines

              # check that we get our match.  If not,
              # complain and move on.  Want to see two
              # filenames.
       unless(/^([\w.-]+) \s+ ([\w.-]+)$/x) {
                print STDERR "$_ is not a valid line";
                next;
        }

        # rename the files as per rename in file
        my ($old, $new) = ($1, $2);
        unless( -e $old ) {
                print STDERR "$old does not exist!\n";
                next;
        }
        rename $old, $new;

        push @files, $new;
}

# check that we have the number of files that we expect
unless(@files == @ftp_locations) {
      die "Not enough specified ftp_locations for ".
          "given number of files!";
}

# create backup subfolder
my @dt = localtime;
my $subfoldername = ($dt[5]+1900) . "-" . ($dt[4]+1) .
                    "-$dt[3]:$dt[2]:$dt[1]_$$";

mkdir "/var/files/out/$subfolder_name" or die "$subfolder_name: $!";

# FTP each file across, die on errors
foreach my $new (@files) {
       my $destination = shift @ftp_locations;

        # ftp transfer
        my $ftp = Net::FTP->new ($server, Timeout => 9000, Debug => 3);

        $ftp or die "$server: cannot connect: $@";
        # If you don't use ~/.netrc
        $ftp->login ($user,$password)
            or die "$_: cannot logon: " . $ftp->message;

        # change remote directory for the first file
        $ftp->cwd($destination);

        # Send file to ftp server
        $ftp->put($new) or
        die "$server: cannot put $new: " . $ftp->message;
        #Quit FTP When finished
        $ftp->quit;

        # move file to backup directory
        unless(move("$new", "/var/files/out/$subfolder_name")) {
               print STDERR "Oops!  Couldn't move the file: $!";
        }
        # Sleep for 20 minutes before processing next file.
        sleep (20 * 60)
}

# If we get to this point then we've renamed, ftped and moved the files
# so send an email saying so...