# Shorthand...top level rows() method assumes the first table found in
# the document if no arguments are supplied.
 foreach $row ($te->rows) {
    print join(',', @$row), "\n";
##</code><code>##

use HTML::TableExtract;


my $te = HTML::TableExtract->new( headers => [qr/Month\s*/,
                                           qr/First\s*/,
                                           qr/High\s*/, 
                                           qr/Low\s*/, 
                                           qr/Sett\s*/, 
                                           qr/Chg\s*/, 
                                           qr/Vol\s*/, 
                                           qr/GOWAVE\*\s*/] );
$te->parse_file($sourcefile);

my $record;

open (DATFILE, ">> meg.dat") or die "Unable to open meg.dat: $!";
print DATFILE "Table:\n";
foreach my $ts ($te->table_states) {
   foreach my $row ($ts->rows) {
      $record = join(',', @$row);
      print $record . "\n";
      print DATFILE $record . "\n";
    }
 }
close DATFILE;

##</code><code>##

<tr align="center" valign="top">
 <td><strong>Month </strong></td>
 <td><strong>First </strong></td>
 <td><strong>High </strong></td>
 <td><strong>Low </strong></td>
 <td bgcolor="#f3f3f3"><strong>Sett </strong></td>
 <td bgcolor="#f3f3f3"><strong>Chg </strong></td>
 <td><strong>Vol</strong></td>
 <td><strong>GOWAVE*</strong></td>
 <td width="1" style="border-bottom-style:none;"></td>
 <td><strong>Vol</strong></td>
 <td style="border-right:1px solid #C0C0C0;"><strong>Open Int</strong></td>
 </tr>