Select Code to Download

#!/usr/bin/perl
use strict;
...

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