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

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

my $cgi = CGI->new();
my %cookie = $cgi->cookie(-name => 'sessionID');

# ... usw...