use CGI;
use CGI::Session;

$form = new CGI;
$session = new CGI::Session("driver:File", $form, { Directory=>"/tmp" } );

my $V_name = $form->param("Vorname");
my $N_name = $form->param("Nachname");
my $User = $form->param("Email");
my $Tel = $form->param("Phone");
my $Mail="$User\@ostfalia.de";
$session->param('User');
$session->param('V_name');
$session->param('N_name');
$session->param('Tel');
$session->param('Mail');

$session->save_param( $form );
$session->flush();

print $session->header();
print $form->header();
print $form->start_html("Ihre Eingaben");
print $form->startform(-action => 'pruefen.pl',
		       -method => 'POST'
		      );
print $form->h1("Ihre Eingaben");

print $form->table({-border=>1},
	$form->Tr({-align=>CENTER,-valign=>TOP},
               [
                     $form->th(['Vorname', 'Nachname','Benutzername','E-Mail', 'Telefon']),
                     $form->td(["$V_name" , "$N_name", "$User", "$Mail", "$Tel"])
               ]
           )
        );
print $form->p();

print $form->submit("Registrieren");
print $form->endform();
print $form->startform(-action => 'registrieren.pl',
		       -method => 'POST'
		      );
print $form->submit("Ändern");


print $form->endform();
print $form->end_html();