Thanks to everyone for your help. I'm not too sure about using the crypt() function though, looks a bit hard for me. Now, it we put out the email headers like this now:
X-Source-Dir: /home/32149/public_html
how do we (or the sysadmin person) use Perl to convert it back to the username ??