#!/usr/bin/perl

use strict;
use ExtUtils::testlib;
use GTop ();

my $gtop = GTop->new(@ARGV);

my($proclist, $entries) = $gtop->proclist;
my $number = $proclist->number;
print "$number processes\n";

for my $pid (@$entries) {
    my $state = $gtop->proc_state($pid);
    my($args, $argv) = $gtop->proc_args($pid);
    printf "PID  %5d: '%s', %s, %d, %d [@$argv]\n",
		$pid,
		$state->cmd, $state->state,
		$state->uid,
		$state->gid;
}