Select Code to Download

    grep {-x "$_/$program"} split /:/ => $ENV {PATH};

    eval {
        local $SIG {PIPE} = sub {die "Pipe!"};
...
    if ($@ && $@ =~ /^Pipe!/) {
        ... Do something ...
    }