結局CPANモジュールをダウンロードしている時間に下記コードをコピペした方が早い時があるので置いておきます。
my @wd = ("日","月","火","水","木","金","土"); my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time); $year += 1900; $mon += 1; printf("今日は %04d 年 %02d 月 %02d 日(%s)\n",$year,$mon,$mday, $wd[$wday]); printf("時刻は %02d 時 %02d 分 %02d 秒\n",$hour,$min,$sec);