$bkupDirectory = " Pfad wo Datei liegt"; 
$backupAge = 1;

print &existsActBackup($bkupDirectory, $backupAge);




# existsActBackup
# ----------------------------------------------------
# Diese Routine prüft, ob ...

# wenn 'ja', dann gibt die Routine die Zahl 1 zurück
# wenn 'nein', dann die Zahl 0
# ----------------------------------------------------

sub existsActBackup {
$tmpValue = 0;
if (-z @_[0])

{    
      $tmpValue = 1;
          
  } else {  
    $tmpValue = 0;      
  }
    
  $rValue = $tmpValue
}


# Ermittle die Liste aller BAK-Files im Verzeichnis $bkupDirectory

# setze den Rückgabewert auf 0

# Für jede Datei dieser Liste:

#  > ermittlere ihren Zeitstempel
#  > prüfe, ob dieser >= CURRENT_DATE - $backupAge ist
#      wenn 'ja', dann kann die Abarbeitung der Liste beendet werden und die Prozedur muß den Wert 1 zurückgeben
 #      wenn 'nein', dann muß die Liste weiter durchsucht werden.

# Gebe Wert zurück.

if (-C $file <= 1) {
  print "Datei ist neuer als 1 Tag\n";
}

my $ctime = -C $file;
my $absoluteTimestamp = $^T - $ctime * 3600 * 24; # $^T ist zeit des scriptstarts
# z.B. in was lesbares umwandeln:
print scalar(localtime($absoluteTimestamp)), "\n";