use strict;
use warnings;
use File::stat;

my $directory = '.';
my $currentTime = time;

for my $YMLfile (<"$directory/*.yml">) {
	my $mtime = stat($YMLfile)->mtime;

	print "$YMLfile: " . ( $currentTime - $mtime ) . " seconds old\n";

}