Select Code to Download

use File::Which qw/ which /;
our $GOTPS = which('ps');

#!/usr/bin/perl --
use warnings;
use strict;
...
    }
    return;
}