#gets info from wikipedia downloaded pages and makes google images to there?
use LWP::Simple;
use LWP::UserAgent;
use HTTP::GetImages;

my $ua = LWP::UserAgent->new;
$ua->timeout(17);
$ua->env_proxy;
$|++;

$data="C:\\projects\\chartsweep90s\\90s-final\.htm";
open DATA,"<$data";
@lines=<DATA>;
%hits=();
foreach $line (@lines)
{
	if ($line =~ /GETT/)
	{
		push(@goodlines,$line);
	}
}


foreach $line (@goodlines)
{
	$line =~ s/[\(\)\/\\\&\+\.\;é\n]//gi;
	#print "line is $line\n";
	@splitline=split("\<td\>",$line);
	$song="0";
	$artist="0";
	$date="0";
	$savedir="";
	$date=$splitline[2];
	$song=$splitline[3];
	$artist=$splitline[4];
	#print "$date $song $artist\n";
	print `echo a \> \"C:\\projects\\chartsweep90s\\images\\$date\\---$artist---$song\"\n`;
}