#!/usr/bin/perl -w
use strict; use warnings;

my($cmd) = 'conf';

foreach (split(/:/,$ENV{'PATH'})) {
   print qq[IN "$_"\n], (`ls ${\quotemeta $_}|grep $cmd`||"[none]\n"), "--\n\n"
}