Select Code to Download

Can't locate object method "new" via package "Net::FTP::A" at /i/forge
+t/exact/path/IO/Socket.pm line 168.

#!/usr/local/bin/perl

...
   print "FTP Complete\n";
   return;
}

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