#!/usr/bin/perl -w

use strict;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
my $response = $mech->get('https://www.digikey.com/products/en?vendor=0&keywords=BAS16W');
if ($response->is_success) {
	print $mech->content;
}
else {
	die $response->status_line;
}