## i shouldn't do this, should i?
#
open(HTML,">html.txt");
print HTML @html;
close(HTML);


## extract table info from array
#
my $extract = new HTML::TableExtract( headers => ['Date','Numbers'] );
+
my $ts;
my $row;
undef $/;

## help? 
#
open(HTML, "html.txt");
my $lotto = <HTML>;
close(HTML);