my $dir = shift;
my @list = grep /\.java$/ => sub {
    opendir my $dh => $_[0] or return;
    my @l = readdir $dh;
    closedir $dh;
    return @l }->( $dir )
;