unless (open(PIPE, "search \"$pattern\" |")) {
     # barf out some error messages
}
# carry on processing the output from the search command