#!/usr/bin/perl

use strict;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;


my $ua = new LWP::UserAgent;



my $senderid = "demo";
my $num = "447777777777";
my $sms = "demo";

my $rep = HTTP::Request->new(POST => "http://api.website.com/api/v1/sms/send/?apiKey=edftr44456&message=$sms%20HTTP%20API&from=$senderid&to=$num");
$rep->content_type("application/x-www-form-urlencoded");
$rep->content_type("Content-Type' => 'application/json");

my $repobj = $ua->request($rep);
my $repcode = $repobj->code;
print 'Response code: ' . $repcode . "\n";