C:\Perl\bin>perl -d ysam5a.pl

Loading DB routines from perl5db.pl version 1.28
Editor support available.

Enter h or `h h' for help, or `perldoc perldebug' for more help.

main::(ysam5a.pl:7):    my $sUser;
  DB<1> x $sUser
0  undef
  DB<2> n
main::(ysam5a.pl:8):    my $sPassword;
  DB<2> x $sPassword
0  undef
  DB<3> n
main::(ysam5a.pl:10):   my $sQuery = 'Columbus Ohio sushi restaurant';
  DB<3> x my $sQuery
0  undef
  DB<4>

##</code><code>##

#!/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;