use Win32;
$login = Win32::LoginName;