#!/usr/bin/perl ($sec,$min,$hour,$day,$mon,$year,$wday) = localtime(time); @weekday = ("日","月","火","水","木","金","土"); $week = $weekday[$wday]; $mon++; $year = 1900 + $year; $date = "$year年$mon月$day日($week)$hour時$min分$sec秒"; print << "TIME"; Content-type: text/html $date TIME exit; __END__