my @files = File::Find::Rule->file()->name->( '*.c', '*.h', '*.pr' )->in(qw( /tmp/dir1 /tmp/dir2 ));