#!D:/Perl/bin/Perl -I D:/Inetpub/wwwroot/demi/html/cgi-bin
use strict;
use CGI qw(-no_xhtml :standard :cgi);
use CGI::Carp qw(fatalsToBrowser set_message);
use HTML::Template;
use DemiConf;
use DemiUtil;
use StringUtil;
BEGIN {
use File::Basename;
chdir dirname($0);
}
my $q = new CGI;
# テンプレート
my @template_buf = openTemplate('./data_input_template.html');
my $template = HTML::Template->new(die_on_bad_params => 0, arrayref=>\@template_buf);
print "Content-Type: text/html;charset=utf-8\n\n";
print $template->output;