#!Perl -w
##zusatz

use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser); # fuer produktion dann deaktivieren

%cs = readk();
@ken = keys(%cs);
$ke = $ken[0];
$co = $cs{ $ke };

  my $cgi = CGI->new();
  # alle parameter in einen Hash einlesen
  my %parameter = $cgi->Vars();
  # oder nur einen in eine Variable
  my $action = $cgi->param('action');
  # cookie erstellen
  my $cookie = $cgi->cookie(
    -name => 'sessionID',
    -value => 'wert des cookies',
  );
  print $cgi->header(
    -type => 'text/html',
    -cookie => $cookie,
  );
  print $cgi->start_html(
    -title => 'Testseite mit cookie',
    -author => 'ich',
  # ...
  );
  print "values des bisherigen kekses  $co";
  print $cgi->end_html();


sub readk() {
  my $cgi = CGI->new();
  my %cookie = $cgi->cookie(-name => 'sessionID');
  return %cookie;
}