#!/usr/bin/perl

require LWP::UserAgent;
require HTTP::Request;

my $address = shift or die "Enter an email address to check\n";
my $APIKEY = 'SAMPLEKEY';
my $ua = LWP::UserAgent->new;
my $url = 'https://haveibeenpwned.com/api/v3/breachedaccount/';
my $header = [ 'hibp-api-key' => $APIKEY ];
$request = HTTP::Request->new(
                'GET',
                $url . $address . '?truncateResponse=false',
                $header
        );


print $request->as_string;
my $resp = $ua->request($request);

print $resp->as_string;