#!/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"; Vokabletrainer

Vokabeltrainer

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

Menue

1 Vokabeln eingeben

2 Englisch - Deutsch

3 Deutsch - Englisch

4 Programmende

Auswahl:

END my $eing = 0; if (param()) { $eing = param('eingabe'); } return $eing; }