#!/home/tom/scripting/perl5/bin/perl

use Net::FTP::Recursive;
use warnings;
use strict;
use FileHandle;

my $ftp = Net::FTP::Recursive->new("artfiles.org", Debug => 1);
    $ftp->login("anonymous",'me@here.there');
    $ftp->cwd('/');

    open FH,"> rlist.db";
    my @ftpfiles;
    @ftpfiles = $ftp->rls(<FH>);
    print @ftpfiles;
    $ftp->quit;