use Win32::Process::Info;
my $wpi=Win32::Process::Info->new();

##</code><code>##

use Win32::Process::Info qw(NT);
my $wpi=Win32::Process::Info->new;

##</code><code>##

Error - Variant 'WMI' is unsupported on your configuration. Disallowed on load of Win32::Process::Info. at ...
Error - Variant 'NT' is unsupported on your configuration. Can't locate loadable object for module Win32::API in @INC Compilation failed in require at ...
Error - Variant 'PT' is unsupported on your configuration. Disallowed on load of Win32::Process::Info. at ...

##</code><code>##

use Win32::Process::Info;
my $wpi=Win32::Process::Info->new('NT');

##</code><code>##

Error - Win32::Process::Info::WMI failed to get winmgs object:
Win32::OLE(0.1707) error 0x800706ba: "The RPC server is unavailable" after character 0 in
"winmgmts:{impersonationLevel=impersonate}!//NT/root/cimv2" at ...
Error - Variant 'NT' is unsupported on your configuration. Can't locate loadable object for module Win32::API in @INC ...
Error - Variant 'PT' is unsupported on your configuration. Unable to load Proc::ProcessTable at ...

##</code><code>##