#!/usr/bin/perl

use Net::FTP;
use Data::Dumper::Concise;

use constant HOST  => 'ftp.cpan.org';
use constant DIR1  => '/pub/CPAN/authors';
use constant GLOB  => '*.???';

my $ftp = Net::FTP->new(
    HOST, 
    Debug => 1, 
    Passive => 1, 
    Timeout => 1
);

$ftp->login('anonymous');
$ftp->cwd(DIR1);
print Dumper $ftp->ls(<GLOB>);
$ftp->quit;