#!/usr/bin/perl -w use strict; use CGI qw(param); use CGI::CARP qw(fatalsToBrowser); print "Content-type: text/html\n\n"; my $teste = eingabe_menue(); print $teste if $teste; sub eingabe_menue { my $url = 'http://127.0.0.1/cgi-bin/cgi/woerterbuch3.pl';; print <<"END";
Vokabeltrainer
**************
Menue
1 Vokabeln eingeben
2 Englisch - Deutsch
3 Deutsch - Englisch
4 Programmende
END my $eing = 0; if (param()) { $eing = param('eingabe'); } return $eing; }