#!/usr/bin/perl

use warnings;  
use strict;
use LWP::Simple;
use HTML::TableExtract;

my $url;
$url="http://www.earnings.com/fin/earnListing.jsp?tckr=&exch=&eff=&date=2003-05-04";
my $content=get $url;
my $te = new HTML::TableExtract( headers =>
        [qw(Company Symbol Estimate Actual)] );
$te->parse($content);

# Examine all matching tables
 foreach my $ts ($te->table_states) {
   print "Table (", join(',', $ts->coords), "):\n";
   foreach my $row ($ts->rows) {
     print join(',', @$row), "\n";
   }
 }