in reply to UID 0 and getpwnam

Couldn't you use if( defined $uid)?

In Section Seekers of Perl Wisdom