#! /usr/bin/perl
use warnings;
use strict;

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

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 => $irgendeinWert,
);

print $cgi->header(
  -type => 'text/html',
  -cookie => $cookie,
);

print $cgi->start_html(
  -title => 'Testseite mit cookie',
  -author => 'ich', 
  # ...
);

# der restliche output hier

print $cgi->end_html();