Select Code to Download

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

$MAIL_ROOT = '/var/mail';

...

closedir $dh;