#!/usr/bin/env perl
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
$year += 1900;
$mon ++;
print "現在の時刻は、$hour時 $min分 $sec秒です\n";
print "本日は、$year年 $mon月 $mday日です\n";