sub newExnHandler
{
    $html = shift;
    my( @rValue ) = ();

    my ( $headline, $date, $blurb, $graphic, $link, $alt );

    while( $html =~ s/\<td.*?\>\<a href=\"(.*?)\".*?\>\<font.*?\>(.*?)\<\/font\>\<\/a\>\<\/td\>//i )
    {
#       print "Found: $1 ... $2\n";

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

#    exit;

    return @rValue;
}

return 1;

