use strict;
use File::Find::Rule;
use Cwd;

$, = "\n";
print File::Find::Rule->file()->name( '*.hhc' )->in( cwd );