Alternatively you could use File::Find::Rule

use File::Find::Rule;

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

Which will return a list of all the files with the .java extension in the given directory and all of it's subdirectories.
HTH

_________
broquaint