sub Which($)
{
 my $Filename=shift;
 foreach ( split /\:/,$ENV{PATH} )
 {
  return "$_/$Filename\n" if ( -e "$_/$Filename" );
 };
}