Select Code to Download

# 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";

use HTML::TableExtract;

...
    }
 }
close DATFILE;

<tr align="center" valign="top">
 <td><strong>Month </strong></td>
...
 <td><strong>Vol</strong></td>
 <td style="border-right:1px solid #C0C0C0;"><strong>Open Int</strong>
+</td>
 </tr>