In Windows XP where there are multiple user accounts defined, is there a Perl function to determine the user/account name of the current user.

Not exactly a function but $ENV{USERNAME} should be pretty portable:

C:\temp>perl -le "print $ENV{USERNAME}"
Blazar
[download]