#!/usr/bin/perl -w $TITLE="Einlesen"; print "Content-type: text/html\n\n"; open(EINGABE, "\n\n$TITLE\n\n\n\n"; print "

$TITLE

\n\n"; print "\n"; $header = ; @zeile = split(";", $header); print ""; foreach $zeile (@zeile) { print ""; } print "\n"; @tabelle = sort(); foreach $zeile (@tabelle) { @zeile2 = split(";", $zeile); print ""; foreach $zeile2 (@zeile2) { print ""; } print "\n"; } print "

$zeile
$zeile2

\n\n\n\n\n"; close(EINGABE);