#!/usr/bin/perl
use strict;
use warnings;

use LWP::UserAgent;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

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

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

my $url = "https://api.twilio.com/2010-04-01/Accounts/AC9c1ff2d1880e4aff9d16d3a033b4631c/Messages.json";

my %form = (
        To => "+156775562300",
        From => "+14155238886",
        Body => "Hello Friend",
    );
	

    my $response = $ua->post(
    $url,
    'Authorization' => 'Basic QUM5YzFmZjJkMTg4MGU0YWZmOWQxNmQzYTAzM2I0NjMxYzplYmFjZTRhYmQ0ZmY1NGM5NDNlZGFlZTg0YjJhMGY0MA==',
	'Content-Type'   => 'application/x-www-form-urlencoded',
    'Content' => %form,
);

if ($response->is_success) {
    print $response->decoded_content;
}
else {
    print $response->decoded_content;
}

##</code><code>##

 To=whatsapp:+2123456789&From=whatsapp:+14155238886&Body=hey test msg