scanpath

#!/usr/bin/perl

$path = $ENV{'PATH'};

# print("$pathn");
foreach $dir (split(/:/, $path))
{
   # print("scanning $dirn");
   print("   $dir/$ARGV[0]n") if (-e "$dir/$ARGV[0]");
}