Select Code to Download

@heads = ("Date","Date of Incident","Unit Cost");
$headers = \@heads ;
$te = HTML::TableExtract->new(headers => $headers) ;
$te->parse($page);

@heads = ("myDate", etc...
$page =~ s/Date/myDate/gs ;
$te->parse($page);