#!/usr/bin/perl
# usage:  searchls.pl <environment_variable_name> <filename>

$envlist = $ENV{$ARGV[0]};
$fname = $ARGV[1];
@plist = split(/:/,$envlist);
foreach $ptest (@plist) {
$ftname = $ptest."/".$fname;
print `ls $ftname 2>/dev/null`;
}
