use strict;
use warnings;

use LWP::UserAgent;
use HTTP::Request::Common qw(GET);
use Net::SSL;

my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0}, );

my $req = GET 'https://ptabdata.uspto.gov/ptab-api/documents';
my $res = $ua->request($req);

if ($res->is_success) {
	print $res->content;
}else{
	print $res->status_line . "\n";
}