#!/usr/bin/perl
use lib '/pfad_zu_meinen/perlmodule';
use Proc::ProcessTable;

$ref = new Proc::ProcessTable;
print "geht los\n";
foreach $proc (@{$ref->table}) {
  if(@ARGV) {
    next unless grep {$_ == $proc->{pid}} @ARGV;
  }

  print "--------------------------------\n";
  foreach $field ($ref->fields){
    print $field, ":  ", $proc->{$field}, "\n";
  }
}