Help for this page

Select Code to Download

Select or download this

sub port {
  @_ == 1 || @_ == 2 or croak 'usage: $ftp->port([PORT])';
...
  ${*$ftp}{'net_ftp_port'} = $port;
  $ok;
}

Select or download this

BEGIN {
  use Net::FTP;
...

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