Select Code to Download

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

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

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

/root>