#!/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;