#!/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();
}