#!/opt/local/bin/perl
use strict;
use diagnostics;
use warnings;
use File::Find;
my $d = "/Users/dbae/tmp";
find(\&p,$d);
sub p { };