sub GetStaples {
        my $oem_PN = $_[0];
        my $ItemDesc = $_[1];
        my @ItemDesc = split(',',$ItemDesc);
        my $Item;
        my $price;
        my $description;
        my $type;
        my $title;
        my $numofitems;
                 my $agent = WWW::Mechanize->new(autocheck => 1, cookie_jar =>
undef);

                 $agent->get("http://www.staples.com/webapp/wcs/stores/servlet/home?
&langId=-1&storeId=10001&catalogId=10051");
                 $agent->form_name("headerSearchForm");
                 $agent->field("searchkey",$oem_PN);
                 $agent->click();
                 my $stream = HTML::TokeParser->new(\$agent->{content});

                 open(OUTFILE, ">>output.html") or die "Can't open output.txt: $!";
                 print OUTFILE $agent->content();
                 close(OUTFILE);
                 my $tag = $stream->get_tag("title");
                 $title = $stream->get_trimmed_text("/title");
                 print "Title:".$tile."\n";
                 if ($title !~ /that was easy/){........................