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

##</code><code>##

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