Select Code to Download

my $pid = `ps ax | awk '/programname/ && !/awk/ {print \$1}`; # ;-)

open my $ps => "ps ax |" or die;
my $pid;
...
    }
}
close $ps or die;