$MAIL_ROOT = '/var/mail';

opendir my $dh, $MAIL_ROOT or die "Cannot open '$MAIL_ROOT' $!";

my @users = grep -d && !/\A\.\.?\z/, readdir $dh;

closedir $dh;