You could try somthing like this (untested!)

@data=$ftp->ls("-R");
 foreach $line (@data)
 {
    if !($line =~ m/^\.{1,2}/){
        print "fetching " . $line . "\n";
        $ftp->get($line) ; 
    }
}
[download]

It sounds though as if wget or rsync could be useful in your case ( I don't know if there are modules out there providing the same functionality). you can call both tools via system, if the ftp-get part is just a fraction of the big picture of your project.

Update: changed punctuation to clarify the meaning

regards,
tomte

---