Select Code to Download

#!/usr/bin/perl

...
        my $exe=eval { readlink("$dir/exe") };
        say Data::Dumper->new([$argv0,$exe],[qw(argv0 exe)])->Dump();
}

/proc/1:
$argv0 = 'init [4]';
...
/proc/5566:
$argv0 = 'postgres: stats collector process   ';
$exe = '/opt/pg9/bin/postgres';