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