Select Code to Download

sub killchd ($;$) {
    use Proc::ProcessTable;
...
    };
    kill $sig, $_[0];
};

my $proc = Proc::ProcessTable->new;
my @ps = map { $_->pid if ($_->cmndline =~ /login -- mrc/) } @{$proc->
+table};
&killchd($_, 9) foreach @ps;