#!/usr/bin/perl -w
# pdgrep
# ja, ein shellscript hätte es auch getan
exec("find",
        "/usr/lib/perl5/5.8.3", "-name", "*.pod",
        "-exec", "grep", "-B3","-H", "$ARGV[0]", "{}", ";");