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