Use this code to integrate Email Hippo’s MORE API using PERL. 


###########################################################################################

#   Company:

    © 2017, Email Hippo Limited. (http://emailhippo.com)

#

#   File name:

#   API V3 - Perl Example.pl

#

#   Version:

#   1.0.20170508.0

#

#   Version control:

#   - 1.0.20170508.0 - initial release

#

#   Date:

#   May 2017

#

#   Description:

#   Demonstrates how to call a RESTful service @ //api.hippoapi.com/v3/more/json

#

#   This example requires a valid key to work correctly.

#

#   License:

#   Apache 2.0 (https://www.apache.org/licenses/LICENSE-2.0)

###########################################################################################

use LWP;


# The url for the service

$ApiUrl = "https://api.hippoapi.com/v3/more/json";


# The format  of the full query string

$QueryFormatString = "%s/%s/%s";


print "Enter Email:\n";

$readLine = <STDIN>;


# The API key provided for your account goes here

$YourAPIKey = "<!-- ENTER A VALID KEY HERE-->";


# Format the url request

$requestUrl = sprintf $QueryFormatString, $ApiUrl, $YourAPIKey, $readLine;


# Make the request against the REST service

$browser = LWP::UserAgent->new;

$response = $browser->get($requestUrl);


# Print the response

print $response->content;