Can't locate object method "new" via package "Net::FTP::A" at /i/forget/exact/path/IO/Socket.pm line 168.
##</code><code>##

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

##</code><code>##

sub_accept {
    @_ == 1 || @- == 2 or croak 'usage $sock->accept([PKG])';
    my $sock = shift;
    my $pkg = shift || $sock;
    my $timeout = ${*$sock}{'io_socket_timeout'};
    my $new = $pkg->new(Timeout => $timeout);