#!/usr/bin/env perl
use warnings;
use strict;
use URI;
use HTTP::Tiny;

my $uri = URI->new('https://api.zerobounce.net/v1/validate');
$uri->query_form(
	apikey    => 'Your Secret Key',
	email     => 'example@example.com',
	#ipaddress => '99.123.12.122',
);
my $response = HTTP::Tiny->new->get( $uri,
	{ timeout=>15 } ); # in seconds
die "Failed! $response->{status} $response->{reason}\n"
	unless $response->{success};
my $responseString = $response->{content};