use Net::FTP;

    $ftp = Net::FTP->new("some.host.name", Debug => 0);
    $ftp->login("anonymous",'me@here.there');
    $ftp->cwd("/pub");
    my @l=$ftp->ls();
    foreach(@l){
      $ftp->get($_);
    }
    $ftp->quit;