if (open (GREP, "-|")) {
    print <GREP>;
} else {
    exec ("grep", "-r", $string, ".") || die "Error exec'ing command", "\n";
}
close (GREP);