if ( -f ) {
  $file = File::Spec::catfile( FILE_FIND_INFO );
  $db{$file} = $Digest::MD5{ $file };
}