#!/usr/bin/perl -w

use strict;
use WWW::Mechanize::Firefox;

my $mech = WWW::Mechanize::Firefox->new();
$mech->agent_alias('Windows Mozilla');

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