use strict;
use warnings;

my $directory   = './yml';
my $fiveDays    = 5 * 86400;
my $currentTime = time;
my ( $fileLine, $timeStamp );

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

	while ( $fileLine = <$fh> ) {
		last if ($timeStamp) = $fileLine =~ /login: (\d+)/;
	}

	close $fh;

	# Divide 13 digit TS by 1000 to convert to 10 digit TS
	if ( ( $currentTime - $timeStamp / 1000 ) > $fiveDays ) {
		print "Login TS in $YMLfile is greater than five days old.\n";
	}
}