#!/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";
seek(FH, 0, 0); # ポインタを先頭へ移動
while(my $data = ) {
#chomp($data);
print "$data
\n";
}
close(FH);
print "------------------
\n";
print "\n";
print "\n";