copy('/home/xyz/Desktop/EZ-Datenverwaltung/kunden.csv' , '/home/xyz/Desktop/EZ-Datenverwaltung/Data-Backup/'.$statusdatum.'-backup-kunden.csv') or warn("Error copy $!");
if ($! eq ""){
             print "Kunden-Datenbank wurde gesichert... OK \n";
             goto SicherungsCheck01;
             }
print "$!";
$! = "";

SicherungsCheck01:
copy('/home/xyz/Desktop/EZ-Datenverwaltung/kurzgeschichten.csv' , '/home/xyz/Desktop/EZ-Datenverwaltung/Data-Backup/'.$statusdatum.'-backup-kurzgeschichten.csv') or warn("Error copy $!");
if ($! eq ""){
             print "Kurzgeschichten-Datenbank wurde gesichert... OK \n";
             goto SicherungsCheck02;
             }
print "$!";
$! = "";

SicherungsCheck02:
copy('/home/xyz/Desktop/EZ-Datenverwaltung/kundencounter.csv' , '/home/xyz/Desktop/EZ-Datenverwaltung/Data-Backup/'.$statusdatum.'-backup-kundencounter.csv') or warn("Error copy $!");
if ($! eq ""){
             print "Kundenzähler-Datei wurde gesichert... OK \n";
             goto SicherungsCheck03;
             }
print "$!";
$! = "";

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