sub lookup {
  my $infile = "locs.txt";
  my $href;
  $table = "<TABLE CELLPADDING=10><TR><TD><B>Path<TD><B>Size<TD><B>Modified</TR>";
  open(F, "+< $infile"); 
  while (<F>) { 
    ($filename, $cms, $path, $size, $day, $time) = split /,/, $_;
    if (index($filename, $to_find) > -1) {
      $href = "file:\\\\netd\\data".$path."\\$filename";
      $href =~ s/\s/%20/g;
      $table .= "<TR><TD><A HREF=\"$href\">$path\\$filename</A><TD>$size<TD>$day $time</TR>";
    }
  }
  close(F);
  $table .= "</TABLE>";
  $table =~ s/"//g;
}