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