#!/usr/bin/perl -w

use strict;

use HTMLSearch;

my $searcher = new HTMLSearch;

my $string = 'configure';

my $hits = $searcher->search('map.html',$string);

print "String '$string' was found $hits times\n";