use CGI;
my $q = CGI->new();
my %para = $q->Vars();

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

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