/usr/share/doc/libsms-send-aql-perl/examples/simple-example.pl is in libsms-send-aql-perl 0.03-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | #!/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";
|