Help for this page
exec("find", "/usr/lib/perl5/5.8.3", "-name", "*.pod", "-exec", "grep", "-H", "$ARGV[0]", "{}", ";");