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