I'm part of a large Web Engineering team where we all share a privileged account on our app and web servers. The problem that has plagued me for sometime is the ability to effectively log activities due to Perl reporting the Effective and Real User/Group ID's as those of the privileged account that you are currently 'su'd to. My solution is below, and now allows me to log activity by the actual user.

print my ($real_user) = `who am i` =~ /^(\w+)/;
[download]