use File::Find::Rule;

my @files = File::Find::Rule->file()
                            ->name('*.java')
                            ->in('your/dir/here');