<perl>
if($cmd eq "mod")
{
    mod "Id==!$Id", ["Autor", "$namerein"], "main";
out "$namerein wurde geschrieben";
}
if($cmd eq "put")
{
    mod "Id==!$Id", ["Autor", "$namerein"], "main";
out "$namerein wurde geschrieben";
}
else
 {

   out "";
 }