use strict;
use warnings;

use Proc::ProcessTable;

my $t = Proc::ProcessTable->new;
my fields = $t->fields();

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