#!/usr/psup/bin/perl -w

$prog = $ARGV[0];

@path = split(/:/, $ENV{'PATH'});

foreach $dir (@path)
{
	print "$dir\n" if (-f $dir . "/" . $prog);
}

