use warnings;
use strict;
use LWP::UserAgent;
use HTML::TreeBuilder;
use URI;

my $ua = LWP::UserAgent->new;

my @linker = qw(13XGK4J
		9KJDK4J
		CNOR665J74445994CNTS
		3RT1K4J
);

for (@linker) {

    # get the basic url for each product
    my $url = URI->new_abs( $_,
        "http://www.dell.com/support/troubleshooting/ed/en/edbsdt1/Servicetag/"
    );

    my $broswer = $ua->get($url);
    if ( $broswer->is_success ) {

        my $tree = HTML::TreeBuilder->new;
        $tree->parse( $broswer->decoded_content );
        $tree->eof;

        $tree->look_down( 'warrantyDetails', 'warrantServiceTagSub' );

        print $tree->as_trimmed_text;
        $tree->delete;
    }
    else {
        die $broswer->status_line(), $/;
    }
}