#!/usr/bin/perl 

use strict;
use warnings;
use WWW::Search;

my $sUser;
my $sPassword;

my $sQuery = 'Columbus Ohio sushi restaurant';
my $oSearch = new WWW::Search('AltaVista');

$oSearch->native_query(WWW::Search::escape_query($sQuery));
$oSearch->login($sUser, $sPassword);

while (my $oResult = $oSearch->next_result())
{
  print $oResult->url, "\n";
} # while
$oSearch->logout;