# ftp directories
my @ftp_locations = ("FTP/A1", "FTP/B2");

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

while (<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;
        }

        my ($old, $new) = ($1, $2);
        rename $old, $new;

              # Now that we have our filenames, grab an
              # ftp directory from the list
        unless(@ftp_locations) {
              die "Not enough specified ftp_locations for ".
                  "given number of files!";
        }
        my $destination = shift @ftp_locations;
      
        # ftp transfer

        my $server = "X.X.X.X";
        my $ftp = Net::FTP->new ($server, Timeout => 9000, Debug => 3);
        $ftp or die "$server: cannot connect: $@";
        # If you don't use ~/.netrc
        $ftp->login ('anonymous', 'mail@address')
            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;

        # Sleep for 20 minutes before processing next file.
        sleep (20 * 60)
}