Select Code to Download

use base qw(Net::FTP);   #5.8

...
  # the super class.
  return $self;
}

sub new {
   my ($pkg, $server, $user, $timeout, @args) = @_;
...
  my $self = { ftpHandle => $ftp };
  return bless($self, $pkg);
}