Perl code sample

Simplest case - sending a single message, with no error checking:

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

my $ua = LWP::UserAgent->new(timeout => 30);
my $req = HTTP::Request->new(POST =>'http://www.bulksms.co.uk:5567/eapi/submission/send_sms/2/2.0');
$req->content_type('application/x-www-form-urlencoded');
$req->content('username=myusername&password=xxxxxx&msisdn=44123123123&message=Test+from+Perl');
my $res = $ua->request($req);
print $res->as_string;