Select Code to Download

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

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