Select Code to Download

#!/usr/bin/perl

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

print Dumper($ftp);

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.