#!/usr/bin/perl
use strict;
use warnings;
use Time::Piece;
use Time::Seconds;

my $t = localtime() - ONE_DAY; # yesterday

my $count = grep {$t->ymd eq localtime( (stat)[9] )->ymd} glob "*.*";