#!perl -w
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use strict;

local ($\, $|) = ($/, 1);

my $q = CGI->new;

print $q->header;
print $q->start_html (-title => 'test');
print $q->p($q->url(-query_string=>1));
if ($q->param) {    # Parameter vorhanden -> Folgeaufruf
    print $q->table (
        {-border=>1},
        $q->caption ('Die folgenden Werte wurden als Liste übergeben:'),
        $q->Tr (map { $q->td($_) } $q->param('liste')),
    );
} else {    # Erstaufruf -> keine Parameter
    print $q->start_form ();
    print $q->hidden (-name => 'liste', -default => [ 5 .. 12, 'äöüß' ]);
    print $q->submit ();
    print $q->end_form;
}
print $q->end_html;