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