Select Code to Download

#! perl -slw
use strict;
use Data::Dump qw[ pp ];
...
 aixmibd          tcpip                         inoperative
 hostmibd         tcpip                         inoperative
 snmpmibd         tcpip                         inoperative

C:\test>junk17
{
...
  " snmpmibd" => { Group => "tcpip", PID => "", Status => "inoperative
+" },
  " xntpd"    => { Group => "tcpip", PID => 3473550, Status => "active
+" },
}