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