#### einfügen
print "Eine Tabelle hinzufuegen";
# Das Eingabeformular festlegen
print "<FORM METHOD=GET ACTION=$thisaction>\n";
print "Tabellenname eingeben: <INPUT TYPE=TEXT NAME=\"Textzeile\">\n";
print "<INPUT TYPE=SUBMIT VALUE=\"abschicken\">\n";
print "</FORM>\n";

# falls etwas abgeschickt wurde, auswerten
$eingabe=$ENV{"QUERY_STRING"}; if ( $eingabe ) {
  ($eingabevar,$eingabezeile)=split(/=/,$eingabe);
   $eingabezeile=~ tr/+/ /; # Leerzeichen umwandeln
    # Hexcodes-Sonderzeichen umwandeln
   $eingabezeile=~ s/%([0-9A-F]{2})/pack(C,hex($1))/ieg;
  print "Ihre Eingabezeile lautet: $eingabezeile\n";
} 
print "</HTML>test</BODY>\n";