system( 'dir /b /s > files.tmp' );

open( IN, 'files.tmp' );
my @files = grep( /\.java$/, <IN> );
close IN;

chomp( @files );

system( 'del files.tmp' );

print "Processing files.\n";
my $file;
foreach $file (@files)
{
   ...
}