Perl: avoid test failure without getpwuid.

The getpwuid() function is called in an eval block in
case it is not implemented.  This should prevent test
failures in this situation.  If the user name cannot
be determined, a default of "user" is used.