#!/usr/bin/perl
use CGI;
%INPUT = ReadParse;
print "Content-Type: text/html\n\r\n\r";
open(DATEI,"$INPUT{'DATEINAME'}");
  print DATEI "$INPUT{'EINGABE'}\n";
close DATEI;

print "Thank you.";