sub del_entry_db # ( id )
 {
         my $del_id = $_[0];
         my $db_file='adress.db'; # da vertippt man sich nur einmal :)

         warn "Zu löschende ID: $del_id\n"; # < Testausgaben Kann auskommentiert werden.

         open (DATEI, '<', $db_file) ||
                 die "Die Datei \"$db_file\" konnte nicht gelesen werden! Fehler:($!)\n";
         my @datei = <DATEI>;
         close DATEI;
         chomp($datei);

         open (DATEI, '>', $db_file) ||
                 die "Die Datei \"$db_file\" konnte nicht geschrieben werden werden! Fehler:($!)\n";
         foreach my $line (@datei){
                 # extract id
                 my @entry = split(/;;/, $line);
                 if($entry[0] ne $del_id){
                         print DATEI "$line\n";
                 }
                else{ warn "ID gefunden: \"$line\"\n"; } # < Testausgabe kann auskommentiert werden.
         }
         close DATEI;
 }