$ultactantivirus=(stat('dinfo.dat'))[9];
$fechaactual=time();
$comparacion=(stat('dinfo.dat'))[9]<=>time();
$resultado=time()-(stat('dinfo.dat'))[9];
print "$ultactantivirus,$fechaactual,$comparacion,$resultado";

#!/usr/bin/perl

use warnings;
use strict;
use Date::Calc qw( Today_and_Now Delta_DHMS Date_to_Text Date_to_Text_Long Language Time_to_Date );

Language(4); #Cambiamos el idioma de Date::Calc a Español: 4

my $ultactantivirus=(stat('dinfo.dat'))[9];

print ultima_actualizacion($ultactantivirus);


sub ultima_actualizacion{

    my $fecha = shift;

    my @fecha_i = Time_to_Date($fecha);

    my @fecha_e = Time_to_Date(time);

    #Tomamos el intervalo entre ambas fechas
    my ($Dd,$Dh,$Dm,$Ds) = Delta_DHMS(@fecha_i, @fecha_e);

    #Regresamos el formato correcto
    if( $Dd && $Dd > 31 ){
        return Date_to_Text(@fecha_i[0..2]);
    }
    elsif( $Dd && $Dd < 31 ){
        return "Hace $Dd " . ( $Dd > 1 ? "días" : "día" );
    }
    elsif( $Dh && $Dh < 24 ){
        return "Hace $Dh " . ( $Dh > 1 ? "horas" : "hora" );
    }
    elsif( $Dm && $Dm < 60 ){
        return "Hace $Dm " . ( $Dm > 1 ? "minutos" : "minuto" );
    }
    elsif( $Ds && $Ds < 60 ){
        return "Hace $Ds " . ( $Ds > 1 ? "segundos" : "segundo" );
    }
    else{
        return Date_to_Text(@fecha_i[0..2]);
    }

} #sub ultima_actualizacion

use Date::Calc qw( Today_and_Now Delta_DHMS Date_to_Text Date_to_Text_Long Language Time_to_Date );

Language(4);

my $fichero = 'C:/Archivos de programa/Antivirus/dinfo.dat';
die "El fichero NO existe\n" if ! -e $fichero;
my @stat = stat($fichero);
die "No se pudo obtener información\n" if ! @stat;
foreach $i (0 .. $#stat) {
    print "Valor $i\t$stat[$i]\n";
}

my $fichero = 'C:/Archivos de programa/Archivos comunes/Symantec Shared/VirusDefs/dinfo.dat';

die "El fichero NO existe: $!\n" if ! -e $fichero;