Send Text-to-speech voice (phone call) via www.smsmatrix.com Gateway
See SMS Gateway page for details.


use LWP::UserAgent;
use HTTP::Request::Common;

my $ua = LWP::UserAgent->new();
my $res = $ua->request
(
POST 'http://www.smsmatrix.com/matrix_tts',
Content_Type => 'application/x-www-form-urlencoded',
Content => [ 'username' => ' This e-mail address is being protected from spambots. You need JavaScript enabled to view it ',
'password' => 'password',
'phone' => '12506063167',
'repeat' => 1, ## Optional (default is 0)
'gender' => 'male', ## Optional, 'female' is default
'language' => 'us', ## Optional ('us' or 'es', 'us' is default)
'response' => 0, ## Optional, set to 1 if recipient's response needed
'txt' => 'Adam, web server is down' ]
);

if ($res->is_error) { die "HTTP Error\n"; }
print "Matrix API Response: " . $res->content . "\n\n";

Read more: http://feeds.dzone.com/~r/dzone/snippets/~3/f-UbSVHaG2g/11877