#!/usr/local/bin/perl

use strict;

my $workingdir="/some/directory/electronic_polling_scripts";

.
.
.

ftpFile($workingdir . "/RESULTS/MyBlobOData.csv");

sub ftpFile{

   use Net::FTP;

   print "FTP File to Reports Server\n";
   my ($file) = @_;
   my $ftp;

   $ftp = Net::FTP->new("reportserver.domain.name");
   $ftp->login("anonymous","anonpw");
   $ftp->cwd("ePolling/Script1_data");
   $ftp->put($file);
   $ftp->quit;

   print "FTP Complete\n";
   return;
}