It seems that you have to escape the spaces in your path:

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

see perldoc -f glob for more information.

-- Dan