Program Repair Shop

Declaration near use

Here's another part of ther same program:

      my @now  = localtime();
      my $YY   = strftime( "%y", @now );
      my $YYYY = strftime( "%Y", @now );
      my $MM   = strftime( "%m", @now );
      my $MMM  = uc( strftime( "%b", @now ) );
      my $DD   = strftime( "%d", @now );

...

      sub archive_file {
        ...

        my $dir;

        $dir = "$archive_dir/$YYYY/$MM/$DD/$provider";

$YYYY, $MM, and $DD are not used anywhere else:

      my @now  = localtime();
      my $YY   = strftime( "%y", @now );
      my $MMM  = uc( strftime( "%b", @now ) );

...

      sub archive_file {
        ...

        my $dir = strftime "$archive_dir/%Y/%m/%d/$provider", localtime();