more obvious wrapper around File::Find

 File::Find::Wanted provides a find_wanted() function, which does what
 File::Find's find() does but in a more obvious way: To get a list of all
 files ending in .jpg, simply call
 .
    @files = find_wanted( sub { -f && /\.jpg$/ }, $dir );