my $processes = Proc::ProcessTable->new;

for ( @{ $processes->table } ) {
    …;
}

##</code><code>##

/root>perl -E 'say `cat /proc/$$/cmdline`'
perl-Esay `cat /proc/$$/cmdline`

/root>perl -E '$0="find me"; say `cat /proc/$$/cmdline`'
find me

/root>