use strict;
use warnings;
use LWP::Simple;
use Data::Dumper;
use HTML::HeadParser;
#use HTML::Miner;
#use HTML::Tree;

my $URL;
my $head;

open (DELLSERIALS, 'serials.txt');
while (<DELLSERIALS>) {
	chomp;
	print "<<<Now checking $_>>>\n";
	my $funky = "http://www.dell.com/support/troubleshooting/ed/en/edbsdt1/Servicetag/" . $_;
	$URL = get("$funky");
	$head = HTML::HeadParser->new;
	$head->parse("$URL");

	#	print Dumper($head);
	print $head->header('x-meta-supportservicetag') . "\n";
	print $head->header('x-meta-supportproductcode') . "\n";
}
close (DELLSERIALS);