Is there a way to check admin rights on Windows using Perl?

Question

I am trying to create a basic starter script that determines which OS I work on and if any special modules need to be loaded. As for Linux, I can check root by looking at the effective uid $> , is there a way to do a similar operation on windows?

Answer 1

Win32 can help you get your username on Windows.

Answer 2

 if ( system("NET SESSION >NUL 2>&1") ) { ... }