13XGK4J
9KJDK4J
CNOR665J74445994CNTS
3RT1K4J

##</code><code>##

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);

##</code><code>##

$VAR1 = {
          'warranty' => {'NBD ProSupport for Enterprise' => '02/12/2012',
                         'Next Business Day' => '02/12/2012'
                   },
          'model' => 'Latitude E6500',
          'serial' => '13XGK4J '
        };