sub yahooReutersHandler
{

   # TODO:
   #  Get the date of the last update . . .  It's on the page.
   $html = shift;
   my( @rValue ) = ();
   my( $headline, $page, $date, $day, $blurb );
   my( $temp );
   
   print "------------------------yahooReutersHandler----------------------\n";
   print "$html\n\n";
   #exit;
   

   while( $html =~ /<div class="hd">.*?(<a href=.*?><\/a>).*?<div class="bd">.*?<p>(.*?)<\/p>/gsi )
   {
       $headline = $1;
       $blurb = $2;
       print "head: $headline\n";
#       exit;

       if( $headline =~ /<a href=\"(.*?)\">(.*?)<\/a>/si )
       {
           $page = $1;
           $headline = $2;

           print "headline: ->$headline<-\n";
           print "url: ->$page<-\n";
           print "date: ->$date<-\n";
           print "blurb: ->$blurb<-\n\n";

           push @rValue,
           {
               'url' => $page,
               'headline' => $headline,
               'date' => $date,
               'blurb' => $blurb
               };
       }
   }

#   exit;

   return @rValue;
}

return 1;

