#!/usr/bin/perl -w
use strict;

my %procs = map { (split ' ')[3], undef } qx/ps -a/;

print map "NF: $_\n", grep !exists $procs{$_}, qw(
    CMD
    /bin/sh
    rds
    SysExec
    /oasis/bin/sysmenu
    /oasis/bin/TS_TextSrvcs
);