#!/usr/bin/perl

$pattern= $ARGV[0];
$shpath=$ENV{'PATH'};
$tildesub=$ENV{'HOME'};

#print "Parsing path: $shpath\nfor $_\n";
#print "Substituting $tildesub for ~\n";
@pdirs=split(/:/,$shpath);
foreach $p (@pdirs)
{
  $_= $p;
  s/\~/$tildesub/;
  $p= $_;
  #print "searching directory: $p\n";
  opendir(DIR, $p);
  while ($filename=readdir(DIR))
  {
    #print "$filename\n";
    if ($filename eq $pattern)
    { 
      #print "found match in directory $p\n";
      print "$p/$filename\n";
      exit;
    }
  }
  closedir(DIR);
}