opendir my $dh, $dir or die $!;
my $entries = grep {1} readdir $dh;