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

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