#!/usr/bin/perl

use v5.12;
use warnings;
use autodie;
use Data::Dumper;

for my $dir (sort grep m|^/proc/\d+$|,glob '/proc/*') {
        say "$dir:";
        my $argv0=do {
                local $/="\0";
                open my $f,"$dir/cmdline";
                scalar <$f>;
        };
        my $exe=eval { readlink("$dir/exe") };
        say Data::Dumper->new([$argv0,$exe],[qw(argv0 exe)])->Dump();
}

##</code><code>##

/proc/1:
$argv0 = 'init [4]';
$exe = '/sbin/init';

/proc/10:
$argv0 = undef;
$exe = undef;

/proc/1001:
$argv0 = '/usr/sbin/ypbind';
$exe = '/usr/sbin/ypbind';

/proc/1048:
$argv0 = '/usr/sbin/rpc.mountd';
$exe = '/usr/sbin/rpc.mountd';

/proc/105:
$argv0 = undef;
$exe = undef;

/proc/1059:
$argv0 = '/usr/sbin/acpid';
$exe = '/usr/sbin/acpid';

/proc/106:
$argv0 = undef;
$exe = undef;

/proc/1069:
$argv0 = '/usr/sbin/console-kit-daemon';
$exe = '/usr/sbin/console-kit-daemon';

/proc/107:
$argv0 = undef;
$exe = undef;

/proc/1079:
$argv0 = '/usr/sbin/crond';
$exe = '/usr/sbin/crond';

/proc/108:
$argv0 = undef;
$exe = undef;

/proc/1084:
$argv0 = '/usr/lib/polkit-1/polkitd';
$exe = '/usr/lib/polkit-1/polkitd';

/proc/13902:
$argv0 = '-:0                   ';
$exe = '/usr/bin/xdm';

/proc/16697:
$argv0 = 'sshd: alex [priv]';
$exe = '/usr/sbin/sshd';

/proc/16700:
$argv0 = 'sshd: alex@pts/0';
$exe = '/usr/sbin/sshd';

/proc/16701:
$argv0 = '-bash';
$exe = '/bin/bash';

/proc/17046:
$argv0 = '/usr/bin/perl';
$exe = '/usr/bin/perl5.22.2';

/proc/5156:
$argv0 = '/bin/sh';
$exe = '/bin/bash';

/proc/5225:
$argv0 = '/opt/exim/bin/exim';
$exe = '/opt/exim/bin/exim-4.72-1';

/proc/5298:
$argv0 = '-:1                   ';
$exe = '/usr/bin/xdm';

/proc/5562:
$argv0 = 'postgres: checkpointer process   ';
$exe = '/opt/pg9/bin/postgres';

/proc/5563:
$argv0 = 'postgres: writer process   ';
$exe = '/opt/pg9/bin/postgres';

/proc/5564:
$argv0 = 'postgres: wal writer process   ';
$exe = '/opt/pg9/bin/postgres';

/proc/5565:
$argv0 = 'postgres: autovacuum launcher process   ';
$exe = '/opt/pg9/bin/postgres';

/proc/5566:
$argv0 = 'postgres: stats collector process   ';
$exe = '/opt/pg9/bin/postgres';