use Win32;
my $user = Win32::LoginName();