#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
print "\n";
print "ＣＧＩのサンプル
\n";
print "
\n";
print "ＣＳＶファイル入力のサンプル
\n";
open(FILE01,"){
chop;
@_ = split(/,/);
print "$_[0],$_[1],$_[2]
\n";
}
close(FILE01);
print "
\n";
print "このＣＧＩのソース：file01.cgi
\n";
print "入力ＣＳＶデータ：file01.csv
\n";
print "\n";