Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

use strict;
...
my $ftp=Net::FTP->new('svr123', Debug => 0);

print Dumper($ftp);
  2. or download this
    Net::FTP: Net::FTP(2.56)
Net::FTP:   Exporter(5.562)
Net::FTP:   Net::Cmd(2.18)
...
Net::FTP=GLOB(0x182575c)<<< 221-Total traffic for this session was 115
+9 bytes in 1 transfers.
Net::FTP=GLOB(0x182575c)<<< 221-Thank you for using the FTP service on
+ <svr123>.
Net::FTP=GLOB(0x182575c)<<< 221 Goodbye.