#!Perl -w
##zusatz
use CGI::Carp qw(fatalsToBrowser);
use CGI qw/:all/;
$q = CGI->new();
my $kekswert = readc('keks');
setc('keks', 'Dies_ist_der_kekswert', 'Keksausgabeseite', 'Hallo
der wert des kekses der von dieser seite gesetzt wurde ist:
'."$kekswert");
sub readc(){
my $cname = shift;
my $read = $q->cookie("$cname");
return $read;
}
sub setc() {
my $cname = shift;
my $cvalue = shift;
my $stitel = shift;
my $ausg = shift;
my $cookie = $q->cookie(-name=>"$cname",
-value=>"$cvalue"
);
print header(-type=>'text/html',
-cookie=>$cookie
);
print '';
print '';
print ''."$stitel".'';
print '';
print '';
print "$ausg";
my $end = '';
print $end;
}