find( \&do_process, ($dirname) ); 

sub do_process
{
   my $file_name = File::Fine::name; #there is no $_ or @_ context here
....
}