#!/usr/local/bin/perl

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

my $uri = "http://192.168.1.200:7180/SAVE/SEIKA";
my $params = [ SPEED => 1.00, PITCH=> 1.00, VOLUME => 1.00, INTONATION => 1.00, TALKTEXT => decode('euc-jp',$ARGV[0]) ];
my $ua = LWP::UserAgent->new();
my $res = $ua->request( POST($uri, $params) );

  open(SNDDEV, ">/dev/dsp");   # Linux/Unix の環境で異なる
  print SNDDEV $res->content;
  close(SNDDEV);