#!/usr/local/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
# Perl-Skript zu RezepteEinfuegen.html
#Eingaben lesen
my $data="";
my $file ="./RETest.html";
my $abfrage = new CGI;
print $abfrage->header();
my %FORM = $abfrage->Vars();
my $rezepttitel = $FORM{Rezepttitel};
my $Rezeptdatei = "./Rezept.txt";
##funktioniert nicht
##Formulardaten in Datei eintragen
open(RAUS, ">> $Rezeptdatei") or die $!;
print RAUS $rezepttitel;
print RAUS "\n";
close(RAUS);
##Ende funktioniert nicht
# Antwortseite
print " Rezeptseite \n";
print "super Rezept\n";
print "",$FORM{'Rezepttitel'},"
\n";
print "\n";
exit;