Select Code to Download

#!/usr/bin/perl -w

...
print "Content-Type: text/html\n\n";
print "$_\n" for @files;
print "done\n";

Net::FTP: Net::FTP(2.61)
Net::FTP:   Exporter(5.562)
...
done
Net::FTP=GLOB(0x81177a8)>>> QUIT
Net::FTP=GLOB(0x81177a8)<<< 221 Goodbye.

Net::FTP: Net::FTP(2.61)
Net::FTP:   Exporter(5.562)
...
could not do ls at ftp.pl line 9.
Net::FTP=GLOB(0x8286474)>>> QUIT
Net::FTP=GLOB(0x8286474)<<< 221 Goodbye.