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