#!/usr/bin/perl
use strict; 
use warnings;
use HTTP::Tiny;
use JSON;
use Data::Dumper;

print "Content-type: text/html\n\n";

my $url = "https://api.zeptomail.com/v1.1/email";
my $json = encode_json {
    bounce_address    => 'bounce@email',
    from => 'noreply@email.com',
    to   => 'receipt@email.com',
	subject   => 'Test Email',
	htmlbody   => '<div><b> Test email sent successfully. </b></div>',
};

my $http = HTTP::Tiny->new(
    default_headers => {
        Authorization => 'Token',
    }
);

my $response = $http->post( $url => {
    content => $json,
    headers => { 'Content-Type' => 'application/json' },
});

if ( $response->{'is_success'} ) {
  print Dumper( decode_json $response->{'content'} );
} else {
  print "$response->{'content'} $response->{'reason'}\n";
}