(1) Net::FTP (2) Net::Telnet (3) LWP::Simple, get() (4) Expect (5) XML::Simple, XMLin() (6) Data::Dumper, Dumper() (7) IO::Socket (8) Date::Manip, DateCalc(), UnixDate() (9) Date::Manip, Date_Cmp() (10) File::Find, find() (11) ExtUtils::Installed, new(), modules(), version() (12) DBI, connect(), prepare(), execute(), fetchrow_array() (13) Getopt::Std (14) Proc::ProcessTable (15) Shell (16) Time::HiRes, sleep(), time() (17) HTML::LinkExtor, links(), parse_file() (18) Net::Telnet, open(), print(), getline() (19) Compress::Zlib, gzopen(), gzreadline(), gzclose() (20) Net::POP3, login(), list(), get() (21) Term::ANSIColor (22) Date::Calc Calendar(), Today() (23) Term::Cap, Tgetend(), Tgoto, Tputs() (24) HTTPD::Log::Filter (25) Net::LDAP (26) Net::SMTP mail(), to(), data(), datasend(), auth() (27) MIME::Base64, encode_base64(), decode_base64() (28) Net::IMAP::Simple, login(), mailboxes(), select(), get()... (29) Bio::DB::GenBank, Bio::SeqIO (30) Spreadsheet::ParseExcel (31) Text::CSV_XS, parse(), fields(), error_input() (32) Benchmark (33) HTTP:: Daemon, accept(), get_request()... (34) Array::Compare, compare(), full_compare()... (35) Algorithm::Diff, diff() (36) List::Util, max(), min(), sum(), maxstr(), minstr()... (37) HTML::Parser (38) Mail::Sender (39) Time::HiRes, gettimeofday(), usleep() (40) Image::Magick (41) Data::SearchReplace (1)Net::FTP #!/usr/bin/perl -w # file: ftp_recent.pl # Figure 6.1: Downloading a single file with Net::FTP use Net::FTP; use constant HOST => 'ftp.perl.org'; use constant DIR => '/pub/CPAN'; use constant FILE => 'RECENT'; my $ftp = Net::FTP->new(HOST) or die "Couldn't connect: $@\n"; $ftp->login('anonymous') or die $ftp->message; $ftp->cwd(DIR) or die $ftp->message; $ftp->get(FILE) or die $ftp->message; $ftp->quit; warn "File retrieved suc...
