DB<1> n
main::(ysam5a.pl:10):   my $sQuery = 'Columbus Ohio sushi restaurant';
  DB<1> n
main::(ysam5a.pl:11):   my $oSearch = new WWW::Search('AltaVista');
  DB<1> x $sQuery
0  'Columbus Ohio sushi restaurant'
  DB<2> n
main::(ysam5a.pl:13):   $oSearch->native_query(WWW::Search::escape_query($sQuer
));
  DB<2> x my $oSearch
0  undef
  DB<3> n
main::(ysam5a.pl:14):   $oSearch->login($sUser, $sPassword);
  DB<3> n
main::(ysam5a.pl:16):   while (my $oResult = $oSearch->next_result())
main::(ysam5a.pl:17):   {
  DB<3> n
main::(ysam5a.pl:20):   $oSearch->logout;
  DB<3> x my $oResult
0  undef
  DB<4> n
Debugged program terminated.  Use q to quit or R to restart,
  use O inhibit_exit to avoid stopping after program termination,
  h q, h R or h O to get additional info.