my $dir = shift;
@list = <"$dir/*.java">;