#!/usr/bin/perl
use 5.014;      # so push/pop/etc work on scalars (experimental)
use strict;
use warnings;
use diagnostics;

use LWP::Simple 'get';
use HTML::TableExtract;
use HTML::FormatText::WithLinks::AndTables;

my $directory = 'F:\\SEC10q\\10Qs\\';
#print "$directory\n";
my $n = 0;
opendir (DIR, $directory) or die $!;
	while (my $secfile = readdir(DIR)) {
		#print $directory."$secfile\n";	
		my $data = $directory."$secfile";
		##########################
		open (DATA, $data);
			my @secdata = <DATA>;
			my ($str) = join "",@secdata;
		close(DATA);
			print $str;
			$n=$n+1;
			print "$n\n";
		#########################
		my $te = HTML::TableExtract->new(
			headers => [ 'Purchased','Average','Publicly','May'],
			slice_columns => 0,keep_html => 0,br_translate => 0 #should we turn the automap option on?
		);
		
		$te->parse($str);
		
			
		

    }

closedir(DIR);