#!/usr/bin/perl -w

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

%post_data = ();
$post_data{'apikey'} = "votre_apikey";
$post_data{'message'} = "Alert SMS !";
$post_data{'number'} = "33600000000";
$post_data{'expediteur'} = "websms";
$post_data{'flash'} = "0";

$post_url = "http://api.envoyersms.org/v1/?method=send";
my $ua = LWP::UserAgent->new(agent => 'env perl client');

my $resp = $ua->request
(
	POST $post_url,
	Content_Type => 'form-data',
	Content => [ %post_data ]
);
	
if ($resp->is_success) 
{
	print $resp->content."\n";
} 
else {
	print "Erreur: ".$resp->status_line."\n";
}