use lib "../lib4";

use URI;
use Web::Scraper;

##</code><code>##

use strict;
use Web::Scraper;
use WWW::Mechanize;

my $url = 'https://finance.yahoo.com/quote/SPY/history?p=SPY';
my $m = WWW::Mechanize->new();
$m->get($url);

my $testdata = scraper {process "tr > td", 't1[]' => 'TEXT';};

my $res = $testdata->scrape(URI->new($url));

print "\nURL is:  " . $m->uri() . "\n";
for(my $a=0;$a<6;$a++){print $res->{t1}[$a] . "\t";}