#!/usr/bin/perl
# $Id: simple-example.pl 211 2008-01-19 15:30:31Z davidp $
#
# A very quick and simple usage example for SMS::Send::AQL
use strict;
use SMS::Send;
my $sender = SMS::Send->new('AQL', _username => 'user', _password => 'pass');
if (!$sender) {
die "Failed to create instance of SMS::Send using SMS::Send::AQL driver";
}
$sender->send_sms(
to => '+447734123456',
text => 'Text message content here',
) or die "Failed to send message";