#!/usr/bin/perl -w
use CGI;
$q = new CGI;
print $q->header('text/html; charset=iso-8859-2');
print $q->start_html("Automobily");
print "Vítáme příznivce škodovky.<P>\n"
                if $q->param('auto') eq 'Škoda';
print $q->startform(-method => "GET"), "Vaše jméno", "<BR>",
                $q->textfield('name'), "<P>";
print $q->radio_group('-name' => 'auto',
    '-values' => ['žádné', "Škoda", "VW",
                            "lepší" ],
    '-default' => "žádné");
print $q->submit('Action', 'Odeslat');
print "<P> Proměnné: <P>", $q->dump;
print "<PRE>";
for (keys %ENV) { print "$_: $ENV{$_}\n" }
print "</PRE>";
print $q->endform;
print $q->end_html;