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

use LWP::Simple 'get';
use HTML::TableExtract;


my $file = 'C:\Payout Policy Paper\Data\urllist.csv';
open (FH, "< $file") or die "Can't open $file for read: $!";
my @lines = <FH>;
close FH or die "Cannot close $file: $!"; 
print @lines;

foreach my $line (@lines) {


my $te = HTML::TableExtract->new(
    headers => [ 'Purchased','Average','Publicly','May'],
    slice_columns => 0,keep_html => 0,br_translate => 0
);

$te->parse($line);

my $table = $te->first_table_found;

my $file = "testout.csv";
open (F,">", $file);

for my $row ($table->rows) {
    print F join('^', @$row), "\n";
}

close (F);
}