Win32::LoginName()
Returns the username of the owner of the current perl process.