chomp( my @users = map { s/$MAIL_ROOT//; $_ } `find $MAIL_ROOT -type d -maxdepth 1` );


##</code><code>##

$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;