#! /usr/bin/perl

&which("perl");

sub which {
	foreach (split(/:/, $ENV{"PATH"})) {
		print "$_" . '/' . "$_[0]\n" if -x "$_/$_[0]";
	}
}