#!/usr/bin/perl
use strict;
use warnings;

use CGI qw(-no_xhtml);
use CGI::Carp qw(fatalsToBrowser);

my $cgi = new CGI;

print $cgi->header();
print $cgi->start_html(-title=>'Vokabeltrainer');

my $teste = eingabe_menue();

print $cgi->p($cgi->b("Eingabe ist: $teste")) if $teste;

print $cgi->end_html;

sub eingabe_menue {
  my $url = $cgi->url;  # Nur zum Testen!
  #my $url = 'http://127.0.0.1/cgi-bin/cgi/woerterbuch3.pl';

  print $cgi->p(
        [ 'Vokabeltrainer',
          '**************',
          'Menue', 
          '1 Vokabeln eingeben',
          '2 Englisch - Deutsch',
          '3 Deutsch - Englisch',
          '4 Programmende' 
        ] 
    ),
    $cgi->start_form(-action=>$url),
    $cgi->p('Auswahl:'),
    $cgi->textfield(-name=>'eingabe', -value=>'', -size=>1),
    $cgi->submit(-name=>'submit', value=>'Abschicken'),
    $cgi->endform,
    $cgi->p('');

  my $eing = $cgi->param('eingabe');
  return $eing;
}

1;