#!/usr/bin/perl -w
use strict;
use Proc::ProcessTable;
my $t = new Proc::ProcessTable;
foreach my $proc ( @{$t->table} ){
    print $proc->pid , " : " , $proc->pctcpu , "\n";
}