#!/usr/bin/perl -w
use strict;
use Win32::Process::Info;
my $pi = Win32::Process::Info->new (undef, 'WMI');