E-mail Exists

email-exists.pl

#!/usr/bin/env perl

use strict;
use warnings;

use LWP;

# emailhippo
https://portal.emailhippo.com/Account/Login

# The url for the service
my $ApiUrl = "https://api1.27hub.com/api/emh/a/v2";

# The format  of the full query string
my $QueryFormatString = "%s?k=%s&e=%s";

print "Enter Email:\n";
my $readLine = <STDIN>;

# The API key provided for your account goes here
my $YourAPIKey = "fdfdcds889";

# Format the url request
my $requestUrl = sprintf $QueryFormatString, $ApiUrl, $YourAPIKey, $readLine ;

# Make the request against the REST service
my $browser = LWP::UserAgent->new;
my $response = $browser->get($requestUrl);

# Print the response
print $response->content, "\n";