#!/usr/bin/env perl
use strict;
use warnings;
use CPAN::Checksums qw/updatedir/;
use File::Find;
sub wanted {
return unless
-d $File::Find::name &&
$File::Find::name =~ m{authors/id/./../.+$};
print "$File::Find::name\n";
updatedir( $File::Find::name );
}
find( { wanted => \&wanted, no_chdir => 1 }, q{.} );