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