#!/usr/bin/perl
;#-----------------------------------------------------
;# time2date.cgiスクリプト0.0.1
;# Copyright 2000 伸光工作所 All rights reserved.
;#-----------------------------------------------------
($sec,$min,$hour,$mday,$mon,$year,$wday)=localtime(time);
$month = $mon+1;
$wday = ('日','月','火','水','木','金','土')[$wday];
if ($sec < 10)  { $sec   = "0$sec";   }
if ($min < 10)  { $min   = "0$min";   }
if ($hour < 10) { $hour  = "0$hour";  }
if ($month < 10){ $month = "0$month"; }
if ($mday < 10) { $mday  = "0$mday";  }
$year = $year +1900;