$statusdatum = $Jahr.$Monat.$Monatstag;

copy('/home/ritter/Desktop/EZ-Datenverwaltung/kunden.csv' , '/home/ritter/Desktop/EZ-Datenverwaltung/Data-Backup/'.$statusdatum.'-backup-kunden.csv');
if ($! ne ""){
             warn("FEHLER => Sicherung der Kunden-Datenbank nicht möglich! / Systemmeldung: $!");
             print " \n";
             goto SicherungsCheck01;
             }
print "Kunden-Datenbank wurde gesichert... OK \n";
print " \n";

SicherungsCheck01:
copy('/home/ritter/Desktop/EZ-Datenverwaltung/kurzgeschichten.csv' , '/home/ritter/Desktop/EZ-Datenverwaltung/Data-Backup/'.$statusdatum.'-backup-kurzgeschichten.csv');
if ($! ne ""){
             warn("FEHLER => Sicherung der Kurzgeschichten-Datenbank nicht möglich! / Systemmeldung: $!");
             print " \n";
             goto SicherungsCheck02;
             }
print "Kurzgeschichten-Datenbank wurde gesichert... OK \n";
print " \n";

SicherungsCheck02:
copy('/home/ritter/Desktop/EZ-Datenverwaltung/kundencounter.csv' , '/home/ritter/Desktop/EZ-Datenverwaltung/Data-Backup/'.$statusdatum.'-backup-kundencounter.csv');
if ($! ne ""){
             warn("FEHLER => Sicherung der Kundenzähler-Datei nicht möglich! / Systemmeldung: $!");
             goto SicherungsCheck03;
             print " \n";
             }
print "Kundenzähler-Datei wurde gesichert... OK \n";
print " \n";

SicherungsCheck03:
print " \n";
print " \n";
print "Datensicherung beendet! [ENTER] \n";
$decider = <STDIN>;
goto HauptMenu;
exit;