#!/usr/bin/perl -T

use strict;
use warnings;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use Net::FTP;

$| = 1;
my $host = 'ftp.cpan.org';
my $user = 'anonymous';
my $pass = 'anonymous';

my $ftp = Net::FTP->new($host, Debug => 2);
$ftp->login($user, $pass);
$ftp->cwd('/pub/CPAN/modules') or die;
$ftp->binary;
my @files = $ftp->ls or die;

print h2 "\n\tlisting files...\n\n";

for (@files) {
	print p $_, "\n";
}