use strict;
$|++;

use Test::WWW::Mechanize;
use WWW::Mechanize::Sleepy;
use File::Basename;
use WWW::Mechanize;
use WWW::Mechanize::Image;
use Storable;
use HTTP::Cookies;
use HTML::SimpleParse;


my @sku = ('NUMBER');



for my $sku (@sku) {
	
 # sleep between 5 and 20 seconds between requests
my $mech = WWW::Mechanize::Sleepy->new( sleep => '1..3' );	


my $URL ="https://www.vwrsp.com/psearch/ControllerServlet.do?D=$sku&spage=header&CurSel=Ntt&Nty=1&Ntx=mode%2bmatchpartialmax&cntry=us&Ntk=All&N=0&Ntt=$sku";

$mech->get( $URL ); $mech->success or die $mech->response->status_line;
$mech->success or die "post failed: ";

my $url1= $mech->uri();
print "$url1\n";


	 
my @links = $mech->find_all_links( url_regex => qr/\/catalog\/product/i);
 for my $links (@links) {	 
	 


$mech->get( $links->url() ); 
$mech->success or die $mech->response->status_line;
$mech->success or die "post failed: ";


my $pike = "|";
open (price_file, "FILE NAME") || die "can't open price.txt: $!\n";

my $some_html = $mech-> content();
my $p = new HTML::SimpleParse ($mech);

print $p;