#!/usr/bin/perl -l
use warnings;
use strict;

use Time::Local;

my $fecha_ultima_actualizacion;

open my $fh, q{<}, 'kk.txt' or die;
my $fichero;
{   # Leemos el fichero entero en una variable escalar
    # Para eso, indefinimos el valor de la variable $/
    # para que deje de leer por líneas
    local $/ = undef;
    $fichero = <$fh>;
}
close $fh;

if ( my ($anno, $mes, $dia) = $fichero =~ /CurDefs=(....)(..)(..)/ ) {
    $fecha_ultima_actualizacion = timelocal(0,0,0,$dia,$mes-1,$anno-1900);
}

print 'Diferencia entre la última fecha de actualización y la actual:';
print time() - $fecha_ultima_actualizacion, ' segundos';