$datum_datei_A = $Jahr$Monat$Tag$Stunde$Minute$Sekunde;
$datum_datei_B = $Jahr$Monat$Tag$Stunde$Minute$Sekunde;

if($datum_datei_A > $datum_datei_B)
{
 print "Datei A ist neuer";
}

#Beispiel:
use strict;
use warnings;

my $Datei_Name_A = "datei1.txt";
my $Datei_Name_B = "datei2.txt";
my $datum_datei_A = (stat($Datei_Name_A))[9]; # Änderungsdatum in Epochen-Sekunden
my $datum_datei_B = (stat($Datei_Name_B))[9]; # Änderungsdatum in Epochen-Sekunden

if($datum_datei_A > $datum_datei_B)
{
    print "Datei A ist neuer";
}

my $datum_datei_A=scalar localtime ((stat $Datei_Name_A)[9]);