I'd use the Win32 Module that comes with ActivePerl

$LoginName = Win32::LoginName
[download]

And just in case you need to check if the user is on NT

if ( Win32::IsWinNT )
{
    #Do Stuff
}
[download]

--=Lolindrath=--