my $dir = shift;
my @list = glob("$dir/*.java");