my $gsRemoteMachine = "ftp.site.com";
my $gsRemoteDir     = "/";
my $gsFtpId         = "username";
my $gsFtpPwd        = "password";
my $gsGateMachine   = "gateway.site.com";     # ftp gateway
my $gsGateConnect   = "\@$gsRemoteMachine ";  # remote machine connectid for gateway
my $gsRemoteMachine = $gsGateMachine;     
my $gsFeedsDir      = "/mypath/";
my $gsFeedFile       = "myfile";


system("ftp -n $RemoteMachine <<EOF> $StatusFile 2>&1\n\nuser $gsFtpId$gsGateConnect $gsFtpPwd\nverbose\n$gsFtpMode\nput $gsFeedsDir$gsFeedFile $gsRemoteDir$gsFeedFile\nclose\nbye\nEOF");