use Win32::Process::Info;
use Win32::Process;
use Data::Dumper;

use strict;
use warnings;

my $pi = Win32::Process::Info->new();
my @info = $pi->GetProcInfo ();   
print Dumper(\@info);