open(DATEI, '<','test.txt');
my @daten = <DATEI>;
close(DATEI);
print $_.'<br>' for @daten;
print '</body></html>';
close(DATEII);