# $Id: require_soft.pl,v 1.1 1997/04/03 07:39:43 friedman Exp $

sub require_soft
{
  local ($f) = @_;

  foreach $dir (@INC)
    {
      if (-f "$dir/$f")
        {
          require "$f";
          return "$dir";
        }
    }
  return 0;
}