!c:\Perl\bin\perl.exe -w
#
# Name: cgi-bin/projekt/seite1.pl
# 
# Funktion: Seite 1
#
# Argumente: 
# Ausgabe:
#
use strict;
use CGI qw(:standard);
my @Vereinsliste= qw /Feuerwehr Schuetzenverein neuer_Verein/;

print    header,
    start_html('Vereinsdatenbank'),
    h1('Guten Tag'),
    start_form (-action=>'/cgi-bin/Projekt/seite2.pl'),
    <FORM ACTION=TARGET='oben'>
    " Mit welchen Verein möchten Sie arbeiten ?    ",
    popup_menu(-name => 'verein_name',-value => [@Vereinsliste]),p,
    
    "Geben Sie ihren Name ein ", textfield('user','root'),p,#root wird später durch einen Benutzer ersetzt
    
    "Geben Sie ihren Passwort ein ", password_field('passwort'),p, 
    #durch password_field wird die Eingabe auf dem Bildschirm nicht sichtbar
    
    submit(-value=>'Enter'),p,
            
    end_form,
    hr,
    end_html;