use Win32; my $username = Win32::LoginName;