Help for this page
grep {-x "$_/$program"} split /:/ => $ENV {PATH};
eval { local $SIG {PIPE} = sub {die "Pipe!"}; ... if ($@ && $@ =~ /^Pipe!/) { ... Do something ... }