#!Perl -w
##zusatz
use CGI::Carp qw(fatalsToBrowser);
open(DATEI, '>>test.txt');
print DATEI 'Dies ist ein Test';
close(DATEI);
print "Content-type: text/html\n\n";
print '';
print '';
print '';
print '';
print 'hatz geklappt???!!
Ich hoff es geht!!!
';
open(DATEI, ';
close(DATEI);
print $_.'
' for @daten;
print '';
close(DATEII);