#!/usr/bin/perl -w

use strict;

my @dirlist = qw(/dir/to/parse);

open( FIND, '-|', 'find', @dirlist, qw/-print0/ ) or die "find: $!";

{
  local $/ = chr(0);
  while (<FIND>) {
    chomp;
    print "Processing: $_\n";
  }
}