#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;

my $ua  = LWP::UserAgent->new;
my $rep = HTTP::Request->new (POST => "http://api.website.com/api/v1/sms/send/");
$rep->content_type ("application/json");
$rep->content ('{ "foo": "bar" }');

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