sub yahooScienceHandler
{

   # 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 "---------------------- yahooScienceHandler ------------------------\n";
 # print "$html\n\n";

   while( $html =~ /<a href=\"(.*?)\">.*?<b>(.*?)<\/b><\/a>.*?<font.*?><i>(.*?)<\/i>.*?<font.*?>(.*?)<\/font>/gsi )
   {
       $page = $1;
       $headline = $2;
       $date = $3;
       $blurb = $4;

       
       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
	   };
   }

     

   return @rValue;
}

return 1;

