sub ftp_data {
        if (!($ftp = Net::FTP->new("$hostname"))){
                printf "error connecting to $hostname\n";
                system("echo \"could not connect to host \n$!\n\" | $BIN/mailx
-s\"$SCRIPT\" $prob");
        exit;
        }

        if (!($ftp->login("$username","$password"))){
                printf "error login \n";
                $ftp->quit;
                system("echo \"could not log in: \n$!\n\" | $BIN/mailx -s\"$SCR
IPT\" $prob");
        exit;
        }

        if (!($ftp->put("$OUTFILE2/IC$CPREVDATE"))){     
                printf OUTPUT "FAILED $line_counter,FAILED\n";
                printf "error transferring file. \n";
                system("echo \"could not transfer (PUT) $IN file \n$!\n\" | $BI
N/mailx -s\"$SCRIPT\" $prob");
        exit;
        }

        if (!($ftp->quit)){
                printf "error while quitting \n";
                system("echo \"could not quit ftp\n$!\n\" | $BIN/mailx -s\"$SCR
IPT\" $prob"); }
        } # End ftp_data