use strict;
use warnings;
use File::Find;
my $p = 0;
my $dir='/home/edi/wlsedi/howard/temp';

find({preprocess => sub { printf "p %d %s\n",$p++,$_; return @_ },
        wanted => sub { printf "w %d %s\n",$p++,$_ }
    }, $dir);