use strict;
use warnings;

my $directory = '.';

for my $YMLfile (<"$directory/*.yml">) {
	open my $fh, '<', $YMLfile or die $!;

	while (<$fh>) {

		# process the file's contents
	}

	close $fh;
}

##</code><code>##

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

}

##</code><code>##

for my $YMLfile (<"$directory/*.yml">) {
	print -M $YMLfile, "\n";
}