Once you get the names of the files (which you put in @dirlisting), you need to go through each of those file and get() it. You already have the $ftp->get() line in there, although it's not doing anything.

my @dirlisting=$ftp->ls();

foreach my $file ( @dirlisting )
    {
    $ftp->get( $file ) or warn "...";
    }
[download]