#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use Time::Piece;

my $now = localtime->ymd("");

opendir my $dir, '.' or die $!;
while (my $pdir = readdir $dir) {
    next if $pdir =~ /^\.{1,2}$/ || ! -d $pdir;

    opendir my $ddir, $pdir or die $!;
    while (my $date = readdir $ddir) {
        next if $date =~ /^\.{1,2}$/ || ! -d $dir;

        say "$pdir/$date" if $date > $now;
    }
}