trivial-stealth-process-locator.pl

#!/usr/bin/perl
 
use strict;
 
for my $pid (1..32000) {
if( open IN, "/proc/$pid/cmdline" ) {
my @x = <IN>;
my $x = `ps $pid | tail -n +2`;
 
s/[^\/\.\-\_\d\w]/ / for @x;
 
print "$pid: @x\n" unless $x;
}
close IN;
}