#!/usr/bin/perl

use strict;
use warnings;

use Proc::ProcessTable;

my $t = new Proc::ProcessTable;

foreach my $proc (@{$t->table}) {
  if ($proc->state =~ /run/oi) {
    print join " ",
          $proc->pid,
          $proc->state,
          $proc->cmndline,
          "\n";
  }
}