Select Code to Download

Select or download this

for my $ts (HTML::TableExtract->new(headers=>qw(Security Volume Previo
+us High Low Today's Change))
  ->parse($response)->table_states ) {

...
      or die "Couldn't execute statement: " . $sth1->errstr;
  }
}

Select or download this

open CSEFILE, 'SCE.htm' or die "Failed to read SCE.htm\n";

for my $ts (HTML::TableExtract->new(headers => qw(Security Volume Prev
+ious High Low Today's Change))
...
}

close CSEFILE;