#!/usr/bin/perl
use Proc::ProcessTable;
# Dump all the information in the current process table

$t = new Proc::ProcessTable;

while(1){
 foreach $p (@{$t->table}) {
   print "\n--------------------------------\n";
   foreach $f ($t->fields){
     print $f, ":  ", $p->{$f}, "  ";
   }
}

sleep(1);
}