I use the SMS::Send with the Twilio add-on. It costs me 1 cent per message, took me 9 minutes to get it up and running with 12 lines of code.
#!C:/strawberry/perl/bin/perl.exe
use strict;
use warnings;
use SMS::Send;
# Create an object. There are three required values:
my $sender = SMS::Send->new('Twilio',
_accountsid => 'Acount SID here',
_authtoken => 'Twilio Token here',
_from => '+1 Twilio Phone number here'
);
# Send a message to me
my $sent;
eval{
$sent = $sender->send_sms(
text => 'text to send',
to => '+12125551212' #sample phone number
);
};
my $error = $@;
# Did it send?
if ( $@ ) {
print "Unable to send Message ".$@;
}
This code is an example cut out of a larger script.