foreach (@array_of_filenames) {
    my $mtime = (stat($_))[9]; # Get mtime for file
    my $month = (localtime($mtime))[4] +1; # Get month for file
    my $day = (localtime($mtime))[3]; # Get day of month for file
    my $thismtime = (stat())[9]; # Get mtime for today
    my $thismonth = (localtime())[4] +1; # Get this month

    if ($month == $thismonth and $day >= 21) { print "Filename: $_\n";
+ }    
}
[download]