<perl>
                        my $mein_titel = $_cgi{titel_ein};
                        outl $mein_titel;
   my $mein_untertitel = $_cgi{untertitel_ein};
   outl $mein_untertitel;
   my $mein_verlag = $_cgi{verlag_ein};
   outl $mein_verlag;
   my $mein_jahr = $_cgi{jahr_ein};
   outl $mein_jahr;
   my $mein_erstes_jahr = $_cgi{erstes_jahr_ein};
   outl $mein_erstes_jahr;
   my $mein_auflage = $_cgi{auflage_ein};
   outl $mein_auflage;
   my $mein_unveraendert = $_cgi{unveraendert_ein};
   outl $mein_unveraendert;
   my $mein_eigentuemer = $_cgi{eigentuemer_ein};
   outl $mein_eigentuemer;
   my $mein_isbn_nr = $_cgi{isbn_nr_ein};
   outl $mein_isbn_nr;
                        outl " ";			
                        $mein_autor = $_cgi{autor_ein};
                        outl $mein_autor;
   $mein_funktion = $_cgi{funktion_ein};
                        outl $mein_funktion;
                        put
   [
   "titel", $mein_titel,
   "untertitel", $mein_untertitel,
   "verlag", $mein_verlag,
   "jahr", $mein_jahr,
   "erstes_jahr", $mein_erstes_jahr,
   "auflage", $mein_auflage,
   "unveraendert", $mein_unveraendert,
   "eigentuemer", $mein_eigentuemer,
   "isbn_nr",  $mein_isbn_nr
   ], "buecher";
                        put
   [
   "titel", $_put_id,
   "name", $mein_autor,
   "funktion", $mein_funktion
   ], "titel_person";
  </perl>