#! perl -slw
use strict;
use Win32::Process::Info;

my @fields = qw[
   ProcessId
   Name
   ExecutablePath
   UserModeTime
   KernelModeTime
   MaximumWorkingSetSize
   MinimumWorkingSetSize
];



my $i = new Win32::Process::Info;

printf "%10.10s %-22.22s %-40.40s %12.12s %14.14s %7.7s %7.7s\n", @fields;
printf "%10.10s %-22.22s %-40.40s %12.12s %14.14s %7.7s %7.7s\n",
    map{ defined() ? $_ : 'n/a' } @{ $_ }{ @fields }
    for $i->GetProcInfo();