#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;
use IO::Socket::SSL;
use Mozilla::CA;


my $ua  = LWP::UserAgent->new (); 
$ua->ssl_opts(
    verify_mode   => SSL_VERIFY_PEER,
    SSL_ca_file => Mozilla::CA::SSL_ca_file(),
    verify_hostname => 1,
);
my $req = HTTP::Request->new(
    GET => 'https://www.digikey.com/products/en?vendor=0&keywords=15083D'
);

my $res = $ua->request($req);
if($res->is_success){
    print $res->content;
}
else{
    print $res->status_line . "\n";
}