#filets.pl
use strict;
use warnings;
use diagnostics;

my $dir = 'subtest\\';
opendir(DIR, $dir) or die $!;
while (my $file = readdir(DIR))
{
	print "$file has -M timestamp of:", -M $file, "\n";
}
closedir(DIR)