#!/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(FH,"> data_rw_file0.txt");
print FH "ABC\n";
print FH "EFG\n";
print FH "HIJ\n";
close(FH);
print "------------------
\n";
print "\n";
print "\n";