use Net::FTP;
my $ftp;
if (!($ftp = Net::FTP->new($gsGateMachine, 
			  -Passive => '1', 
			  -Firewall => $gsGateMachine)) ) {
   email_error($gsEmailAdmin, $gsErrSys, $gsErrSys."Connect failed. $@");
}

$ftp->login("$gsFtpId\@$gsRemoteMachine","$gsFtpPwd");

if ( $ftp->put("$gsFeedsDir$gsFeedFile")) {
    push @ReportArray, "\nAJB FILE FTP SUCCESSFUL!\n";
else {
    push @ReportArray, "\n\tAJB FILE FTP FAILED $@\n";
    email_error($gsEmailAdmin, $gsErrSys, $gsErrSys."FTP failed. $@");
}