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"; }	
}