finding the most relevant keywords or phrases of a content using a perl program

i need a program to extract keywords and phrases from text or html and
list the frequencies. i have used LINGUA module for doing this. but
searching for another better algorithm .actually this is meant for
contextual ads which google is doing for its google adsense program.
can any one help me in this issue. pls suggest me if any perl modules
available....