Select Code to Download

use warnings;
use strict;
...
             ];

};

my %pids = map { $_ => 1 } $req->path =~ /(\d+)/g;

next if scalar(%pids) and not $pids{$proc->pid};

my %hash = (
        fred => flintstone,
...
        );

print scalar(%hash) . "\n";