#!/usr/local/bin/perl

use Encode;
use HTTP::Request::Common;
use LWP;

my $uri = "http://192.168.1.200:7180/SAVE/SEIKA";
my $params = [ SPEED => 1.60, PITCH=> 1.00, VOLUME => 1.00, INTONATION => 1.00, TALKTEXT => decode('euc-jp',"シャットダウン&リセットを推奨します。") ];
my $ua = LWP::UserAgent->new();
my $res = $ua->request( POST($uri, $params) );

  print $res->content;