Select Code to Download

  use File::Find;

  find(\&eachfile, "/data/");

  sub eachfile {
      my $path = $File::Find::name;

...

      # eventually logging any that you can't handle
  }