Faire causer par script (perl)

#!perl
use strict;
use LWP::Simple;
use Getopt::Long;
my $versionlevel="1.1" ;

# constants
my $address='api.nabaztag.com/vl/FR/api.jsp';

# internal variable
my $message='';

# defaults
my $d_debug = 0;
my $d_SN = '';
my $d_Token = '';
my $d_Character = '';
my $d_tts = '';

# parameters
my $debug = $d_debug;
my $SN = $d_SN;
my $Token = $d_Token;
my $Character = $d_Character;
my $tts = $d_tts;
my $help = '';
my $version = '';
my $tts ='';

GetOptions   ("SN=s" => \$SN,      
      "Token=s"  => \$Token,
      "Read=s" => \$tts,
      "Character:s" => \$Character,
      "Help+" => \$help,
      "Version+" => \$version,
      "Debug+" => \$debug);

# version :
die "version $versionlevel\n" if $version;
# debug mode
$debug=1 if ($debug>1);
print "default SN : ${d_SN}\n" if $debug;
print "default Token : ${d_Token}\n" if $debug;
print "default Character : ${d_Character}\n" if $debug;
print "default Say : ${d_tts}\n" if $debug;

# check entries : Accept only if SN, Token and tts :
$help='1' if (not($SN and $Token and $tts)) ;
die "usage --SN sn --Token token [--Character character] [--Debug] --Read tts | --Help| --Version \n single letter option works too\n" if ($help);

#  format message entries
$tts =~ y/ /+/;
$SN =~ y/ //;
$Token =~ y/ //;
$Character =~ y/ //;

# define message
$message = "sn=${SN}&token=${Token}";
$message = "${message}&voice=${Character}" if (not(not($Character)));
$message = "${message}&tts=${tts}";
print "Sending request ${message}\n" if $debug;

# send message
getprint("http://${address}?${message}");