#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use Encode qw(encode_utf8);
use Digest::MD5 qw(md5_hex);

my $Nichandle = "SO4021-SA";
my $Password = "xxxxxx";
my $Hash = "md5";
my $Number = "32475473060";
my $TypeContent = "text";
my $Content = encode_utf8("Bonjour tout le monde! héhé");
my $SenderType = "text";
my $SenderID = "32475473060";
my $Udh = "";
my $Passphrase = md5_hex($Password.$Number);

my $ua = LWP::UserAgent->new(timeout => 30);

my $req = HTTP::Request->new(POST =>'http://api.smsaction.be:80/get_push/');
$req->content_type('application/x-www-form-urlencoded');
$req->content('nichandle='.$Nichandle.'&hash='.$Hash.'&passphrase='.$Passphrase.'&number='.$Number.'&content='.$Content.'&typecontent='.$TypeContent.'&sendertype='.$SenderType.'&senderid='.$SenderID);
my $res = $ua->request($req);

print $res->as_string;