> perlで引数化するのか(;´Д`)邪道

これはひどいな
つーかPerlから叩いてるだけか

#!/usr/bin/perl
require 'cgi-lib.pl';
&ReadParse(*in);

$hat = $in{'hat'};

(中略）

system "./yamato $tate $yoko $takasa $omosa $hat $chk";
   exit;