#!/usr/bin/perl use strict; use warnings; use utf8; use Date::Simple; use Time::Piece; # Date::Simple を使ってみる # 今日の日付で昨日と明日の日付を取得する my $today = Date::Simple->new(); print 'Today is ', $today, "\n"; # 昨日の日付 prin…