#!/usr/bin/perl

use strict; 
use warnings;

my $meinWert1 = '04711';
my $meinWert2 = '42 THE VALUE OF THE WEB!';

use CGI;
my $cgi = CGI->new();
my $cookie1 = $cgi->cookie(-name=>		'autoname',
                          -value=>		$meinWert1,
                          -expires =>	'+1y',								  
                          );

my $cookie2 = $cgi->cookie(-name=>		'autopin',
                          -value=>		$meinWert2,
                          -expires =>	'+1y',								  
                          );
print $cgi->header(-cookie => [$cookie1, $cookie2]);