sub port {
  @_ == 1 || @_ == 2 or croak 'usage: $ftp->port([PORT])';
  my ($ftp, $port) = @_;
  my $ok;
  delete ${*$ftp}{'net_ftp_intern_port'};
  unless (defined $port) {
    # create a Listen socket at same address as the command socket
    ${*$ftp}{'net_ftp_listen'} ||= IO::Socket::INET->new(
      Listen    => 5,
      Proto     => 'tcp',
      Timeout   => $ftp->timeout,
      LocalAddr => $ftp->sockhost,
    );
    my $listen = ${*$ftp}{'net_ftp_listen'};
    my ($myport, @myaddr) = 
     ($listen->sockport, split(/\./, $listen->sockhost));
    $port = join(',', @myaddr, $myport >> 8, $myport & 0xff);
    ${*$ftp}{'net_ftp_intern_port'} = 1;
  }
  $ok = $ftp->_PORT($port);
  ${*$ftp}{'net_ftp_port'} = $port;
  $ok;
}

##</code><code>##

BEGIN {
  use Net::FTP;
  use IO::Socket::SSL;
  @Net::FTP::ISA = 
    grep { $_ ne 'IO::Socket::INET' } 
      @Net::FTP::ISA;
  push @Net::FTP::ISA, 'IO::Socket::SSL';
}

my $ftp = Net:FTP->new(...); 
#etc