Select Code to Download

use strict;
use warnings;
...
my ($process) = grep { $_->pid == $$ } @$proc_table;

print $process->cmndline, "\n";