<perl>
     # get "Id==$_get{Id}","AdressenDB"; <- unnötig, warum den Datensatz hier holen?
     # $_put{Id}=$Id; <- Unnötig die Id des Datensatzes ist im Put-Hash, wenn geändert werden soll mittels Link der do_all-Ausgabetabelle
if ($cmd eq "mod"){
get "Id==$Id","AdressenDB"; # hier den DS holen, wenn geändert werden soll
     # $_put{Id}=$Id; <- siehe oben warum alle paarmal wenns doch schon dort ist wo es sein soll?
$_put{Postadresse}="An<br>$Vorname $Name<br>$Strasse<br>$PLZ $Stadt<br>$Land"; # dann in den Put-Hash fürs Feld Postadresse der DB AdressenDB den zusammengesetzten Wert schreiben, damit er unten im do_all mit abgespeichert wird
}
do_all.....usw formfields=-Postadresse(Das Feld Postadresse wird in den Formfields nicht dargestellt, also bei jeder Änderung überschrieben, was beabsichtigt ist...)
</perl>