While starting to "roll your own", you might want to take a look at WWW::Search.

Christian Lemburg
Brainbench MVP for Perl
http://www.brainbench.com