#!/usr/bin/perl
exec("find",
        "/usr/lib/perl5/5.8.3", "-name", "*.pod",
        "-exec", "grep", "-B3","-H", "$ARGV[0]", "{}", ";");