#!/perl/bin/perl
#======================================  
   main();
#======================================

sub main {
#--------------------------------------
# Test grep.

    my $page = 'good good good good good good bad bad bad bad bad';
    my @good = qw/good/;
    my @baad = qw/bad/;
    my %baad = map { $_, ($page =~ s/\b$_\b//ig) } @baad;
    my %good = map { $_, ($page =~ s/\b$_\b//ig) } @good;

    print qq{Content-type: text/html\n\n};
    print grep($_ > 5, values(%good)) ? q{RELATED} : q{NOT RELATED};
    print q{<br>};
    print grep($_ > 4, values(%baad)) ? q{BADNESS} : q{NOT BADNESS};
}