use strict;
use warnings;
use HTML::TableExtract;
use DBI;

my $dbh1 = DBI->connect('DBI:ODBC:OptionsDB', 'sa', '')
  or die "Couldn't connect to database: " . DBI->errstr;
my $sth1 = $dbh1->prepare(<<'EOSQL')
INSERT INTO OptionsDB.MyOpt
  (Security, Volume, Previous, TodayHigh, TodayLow, TodayClose, Change)
VALUES (?,?,?,?,?,?,?)
EOSQL
  or die "Couldn't prepare statement: " . $dbh1->errstr;

open CSEFILE, 'SCE.htm' or die "Failed to read SCE.htm\n";
my $response = do { local $/; <CSEFILE> };
close CSEFILE;

# Do you need the following s///'s transformations if you are going to
# have HTML::TableExtract parse $response ???
$response =~ s/.*Statistics//s;
$response =~ s/Volume Weighted Average.*//s;
$response =~ s/[\r\n]//gs;
$response =~ s/[ \t]+/ /gs;

my $te = HTML::TableExtract->new( headers =>
                                  qw( Security Volume Previous High
                                      Low Today's Change ) );
$te->parse( $response );
for my $ts ( $te->table_states ) {
  for my $row ( $ts->rows ) {
    print join( "\t", @$row ), "\n";
    $sth1->execute( @$row )
      or die "Couldn't execute statement: " . $sth1->errstr;
  }
}