#!/usr/bin/perl

print "Content-type: text/plain; charset=UTF-8\n\n";

# 現在日時の表示
@wdays = ( "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat");
($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time());
printf "%04d/%02d/%02d %02d:%02d:%02d(%s)\t", $year + 1900, $mon + 1, $mday, $hour, $min, $sec, $wdays[$wday];

$datafile = "./data.txt";	# ブラウザで設定した内容のファイル
open (DATA, $datafile);
print <DATA>;	# ファイルの 1 行目を読み取り表示する
close (DATA);