use WWW::Search;
print sort &WWW::Search::installed_engines();

##</code><code>##

use WWW::Search;
my $oSearch=WWW::Search->new('PubMed');
$oSearch->native_query(
 "lung cancer treatment",
 { search_debug=>1, search_parser_debug=>1 }
);
#... whatever ...