use Win32;

my $userName = Win32::LoginName();
print "Current User: ", $userName, "\n";