#!/usr/bin/perl use warnings; use strict; use utf8; use Time::localtime; use Date::Calc qw(Day_of_Week Week_Number Day_of_Year); # Time::localtime のインスタンスを生成 my $tm = localtime; my $year = $tm->year + 1900; my $month = $tm->mon +…