#!/usr/bin/perl

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

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

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

print 
    $cgi->p("cName: ", $cookie1->value),
    $cgi->p("cPin: ", $cookie2->value),
    $cgi->p(time);