The code you posted doesn't make sense:

What is the second line in this snippet supposed to do?

sub CheckFile {
$File::Find::name;
my $age = -M;
[download]

You could print out the filename, $age and what other inforamtion you find relevant.

Also note that '$_, !~ /^\./' is a constant string, which likely is not what you meant. Maybe you meant

$_ !~ /^\./
[download]

instead? Also look at substr for an easy way of looking at the first character of a string.