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