#!/usr/bin/perl

use WWW::Search;

my $oSearch = new WWW::Search('AltaVista');
my $sQuery = WWW::Search::escape_query("FreeBSD Security");

$oSearch->native_query(
    $sQuery,
    {
        search_url=>"http://altavista.com/sites/search/web"
    });

print "QRY:".$sQuery."\n";
print "MAX:".$oSearch->maximum_to_retrieve(100)."\n";
my $response = $oSearch->response();

if ($response->is_success) {

    print "Results:\n";

    @results = $oSearch->results();
    foreach $result (@results) {
        print $result->url(), "\n";
    };

} else {
    print "error:  " . $response->as_string() . "\n";
}