#!/usr/local/bin/perl
use strict;
use warnings;
use utf8; #プログラムがUTF-8を使って記述されていることを宣言
use open IN => ":utf8";
use open OUT => ":encoding(cp932)";
#---------------------------------------------------------
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";
my @list0;
# utf8で記述されたファイル(Utf_8.txt)を読み込む。
open (IN, "<", "Utf_8.txt") or die "$!";
@list0 = ;
close(IN);
# シフトJSに変換してファイル(Utf_8_sjis.txt)に記録する。
open (OUT, ">", "Utf_8_sjis.txt") or die "$!";
print OUT "Shift-JISに変換されて記述された。\n";
foreach my $tmp0 (@list0) {
print OUT "$tmp0"; }
close(OUT);
print "------------------
\n";
print "\n";
print "\n";