use Data::Dumper;
use Net::FTP::Common;

           $common_cfg = { Host => 'your.ftp.server', 
                           User => 'anonymous',
                           Pass => 'me@here.there',
                           RemoteDir  => '/'
                           } ;   

           $ftp = Net::FTP::Common->new($common_cfg, Debug => 0);
           @dir = $ftp->dir();
           print Dumper(\@dir);
           $ftp->quit;