#!/usr/bin/perl

use warnings;
use strict;
use LWP::UserAgent;
use Data::Dumper;

my $ua = LWP::UserAgent->new(); 

my $url = "https://api.mysite.com/2022-01-08/enrich/upload";
my $data = 'testme@mysite.com';
my $webhook = "http://mywebhook.com/";

my $user = "any_string";
my $pwd = "{secure_token}";
my $content_type = "form-data";

$ua->credentials($user, $pwd);

my $response = $ua->post($url, Content_Type => $content_type, Content => [data => $data, webhook => $webhook] );

my $content = $response->as_string();

print ($content);

##</code><code>##

<?php

$url = "https://api.mysite.com/2022-01-08/enrich/upload";
$data = "testme@mysite.com";
$webhook = "http://mywebhook.com/";

$user = "any_string";
$pwd = "{secure_token}";

$curl = curl_init($url);
curl_setopt($curl, CURLOPT_URL, $url);
curl_setopt($curl, CURLOPT_POST, true);
curl_setopt($curl, CURLOPT_RETURNTRANSFER, true);
curl_setopt($curl, CURLOPT_USERPWD, "$user:$pwd");

$data = "data=$data&webhook=$webhook";

curl_setopt($curl, CURLOPT_POSTFIELDS, $data);

//for debug only!
curl_setopt($curl, CURLOPT_SSL_VERIFYHOST, false);
curl_setopt($curl, CURLOPT_SSL_VERIFYPEER, false);

$resp = curl_exec($curl);
curl_close($curl);
var_dump($resp);

?>