Sending SMS via Perl.

Sending out SMS text messages via Perl is easy. Click here to download a pdf containing example code

We have a simple HTTP POST gateway which allows you to submit your messages quickly and reliably.

Quick reference - Sample Code

sign up for an account and then try this ...
#!/usr/bin/perl -w use LWP::UserAgent; use HTTP::Request::Common; use URI::Escape; %post_data = (); $post_data{'username'} = "username"; $post_data{'password'} = "password"; $post_data{'to_num'} = "4477123456"; $post_data{'orig'} = "+4477123456"; $post_data{'message'} = "this is my messsage !"; $post_type = "http://"; @post_servers = ("gw1.aql.com", "gw11.aql.com", "gw2.aql.com", "gw22.aql.com"); $post_path = "/sms/postmsg.php"; my $ua = LWP::UserAgent->new(agent => 'aql perl client'); foreach $server (@post_servers) { my $resp = $ua->request( POST $post_type.$server.$post_path, Content_Type => 'form-data', Content => [ %post_data ] ); if ($resp->is_success) { print $resp->content; last; } else { print "Error: ".$post_type.$server.$post_path." - ".$resp->status_line."\n"; } }