#!perl

use strict;
use warnings;

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

my $procs = Win32::Process::Info->new();
print Dumper $procs->GetProcInfo();