sub dir_names
{
    return unless -d;
    return unless /[IPD]\d{8}$/;
#    $dirs{$File::Find::name} = 1;
    ++$dirs{$File::Find::name};
}