#! c:\perl\bin

use WWW::Search;
my $oSearch = new WWW::Search('AltaVista');
my $sQuery = 'Ohio sushi restaurant';
$oSearch->native_query(WWW::Search::escape_query($sQuery));
my $response = $oSearch->response();
if ($response->is_success) {
    print "Page returned ok";
} else {
    print "error:  " . $response->as_string();
}
while (my $oResult = $oSearch->next_result()) {
      print $oResult->url, "\n";
      }
$oSearch->logout;

##</code><code>##

my @asEngines = sort &WWW::Search::installed_engines();
local $" = ', ';
print (" + These WWW::Search backends are installed: @asEngines\n");