#!/usr/local/bin/perl
use strict;
use warnings;
use utf8;
use open ":utf8";
print "Content-type: text/html; charset=utf-8\n\n";
print "\n";
print "\n";
print "\n";
print "CGI test\n";
print "\n";
print "\n";
print "------------------
\n";
open(DATAFILE, ">>", "data_rw_file0.txt")
or die("Error:$!");
print DATAFILE "加藤 みち子\n";
print DATAFILE "東京都新宿区\n";
print DATAFILE "女性\n";
close(DATAFILE);
print "------------------
\n";
print "\n";
print "\n";