#!/usr/bin/perl

use strict;
use CGI ':standard';
my $bundesland;
$bundesland="$ENV{'QUERY_STRING'}";
my $query = new CGI;
my %cookie = $query->cookie(-name => 'objektbundesland');
my $setcookie = $query->cookie(-name=>'objektbundesland',
  -value=>"$bundesland",
  -domain  =>  "$ENV{'SERVER'}",
  -path   =>  '/',
  -expires =>  '+1h');
print $query->header(-cookie=>$setcookie);