sub cnnHeadlineHandler
{
   $html = shift;
   my( @rValue ) = ();
   my( $headline, $url );

   # always the same.
   $html =~ s/^.*?<!-- t2 -->//si;
   $html =~ s/<!-- \/features -->.*$//si;
   #print "---$html---\n";
   #return 1;

   while ( $html =~ s/
            <LI><A\ href="(.*?)" # url
            .*?>(.*?)<\/a>       # headline
         //six )
   {
      $url      = $1;
      $headline = $2;

#      print "url=$url\nheadline=$headline\n";

      push @rValue,
      {
         'headline' => $headline,
         'url' => $url
      };
   }
   
   return @rValue;
}

1;

