use Class::Date 'date';

use constant CTIME => 10;

for my $filepath (glob('/foo/*')) {
    next if $filepath =~ /\.gz$/;
    next if date((stat($filepath))[CTIME])->truncate eq (date(time) - '1D')->truncate;

    print "$filepath\n";
}