#!/usr/bin/env perl
#
# whereare - whereis with globbable arguments
#
# $Id$

sub glob_argv
{
  map { glob("$_[0]/$_") } @ARGV;
}

print join( '',
  map { "$_\n" }
   grep { -x $_ && -f $_ } map { glob_argv($_) } split( /:/, $ENV{PATH} ) )