#!/usr/bin/perl

$_ = `ps axu |grep 'orpc-' |grep -v grep | cut -b10-15`;
my %pids = map { $_ => 1 } split;
my @evils;

foreach (split /\n/, `top -bn1`) {
    s/^\s+//;
    my @cols = split /\s+/;
    next unless $cols[0] =~ /\d/;
    if ($cols[8] =~ /\d{2,}/) {
        if ($pids{$cols[0]}) {
            print "$_\n";
            push @evils, $cols[0];
        }
    }
}

print "\n";
foreach my $pid (@evils) {
    print "Kill PID $pid ? [Y/n] ";
    my $ans = <>;
    unless ($ans =~ /N|n/) {
        print "killing PID $pid .. ";
        unless (0 == system("sudo kill $pid")) {
            warn sprintf "External command '%s' failed with exit status %d (signal %d).  A core dump %s\n",
            $cmd, $? >> 8, $? & 127, $? & 128 ? "occurred" : "did not occur";
        } else {
            print "done\n";
        }
    }
}