次の通リ #!/sing/local/perl/bin/perl use strict; use warnings; use utf8; use FindBin; use File::Spec; use lib File::Spec->catdir($FindBin::Bin, '../lib'); use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); use Date::Calc qw/Add_Delta_YMD Toda…