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

my @info = Win32::Process::Info->new->GetProcInfo({no_user_info=>1});

printf "%20s : %5d : K:%10.3f U:%10.3f\n",
    @{ $_ }{qw[Name ProcessId KernelModeTime UserModeTime ]}
    for @info;

__END__
c:\test>pi
 System Idle Process :     0 : K:192689.359 U:     0.000
              System :     4 : K:    49.203 U:     0.000
...
         TextPad.exe :  1112 : K:    43.328 U:    81.781
             CMD.EXE :  1276 : K:     5.953 U:     3.422
             CMD.EXE :   644 : K:     0.625 U:     0.219
             CMD.EXE :   440 : K:     0.016 U:     0.031
         TextPad.exe :  1524 : K:     6.141 U:     7.578
           Opera.exe :   816 : K:     6.438 U:     9.516
            perl.exe :  1508 : K:     0.000 U:     0.047
            perl.exe :  1724 : K:     0.125 U:     0.188