#================================================ Perl code sample ================================================#

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

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

# If your firewall blocks access to port 5567, you can fall back to port 80:
# my $req = HTTP::Request->new(POST =>'http://www.bulksms.co.uk/eapi/submission/send_sms/2/2.0');
# (See FAQ for more details.)
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);

if ($res->is_error) {
	die "HTTP request error, with error code ".$res->code.
		", and body:\n\n".$res->error_as_HTML;
}

my ($result_code, $result_string, $batch_id) = split(/\|/, $res->content);

if ($result_code eq '0') {
	print "Message sent: batch $batch_id";
}
else {
	print "Error sending: $result_code: $result_string";
}
print "\n";