!/usr/bin/perl -w use strict; use CGI qw(param); use CGI::CARP qw(fatalsToBrowser); print "Content-type: text/html\n\n"; my $teste; sub eingabe_menue { my $url = 'http://127.0.0.1/cgi-bin/cgi/woerterbuch3.pl'; print < Vokabletrainer

Vokabeltrainer

**************

Menue

1 Vokabeln eingeben

2 Englisch - Deutsch

3 Deutsch - Englisch

4 Programmende

Auswahl: <\/form> <\/p> <\/body> <\/html> END my $eing = 0; if (param()) { $eing = param('eingabe'); } return [b]$eing = param('eingabe');[/b] }