I use a very simple version of what you are doing.
It is easier for me to understand

#!/usr/local/bin/perl -w

use Net::FTP;
$hostname = 'hostname'; # ie laserlight.net
$username = 'whatever'; # ie login name
$password = 'whatever'; # ie adb87nhe

$ftp = Net::FTP->new($hostname);
$ftp->login($username, $passwd);
$ftp->cwd("/home/kevin");  # this is where you change directories
$ftp->put("$OUTFILE2/IC$CPREVDATE");
$ftp->quit;
[download]

This code sample may very well be too simple for you to use
it helps me understand the process better.

made the corrections that beatnik suggested

learning monk2b