eval {

find(\&find_parm, $start_dir);

};
if ($@) { # nach eval stehen in $@ stehen Meldungen wenn was fehlschlug
   # hier Fehlermeldung des eval auswerten
   #
}