my $r = Apache->request;

Apache::Cookie->new( $r,
    name => 'license_session',
    value => $secret,
    path => '/', 
    expires => '+8h',
)->bake;

##</code><code>##

my $cookie = Apache::Cookie->fetch;

my $name  = $cookie->name;
my $value = $cookie->value;

print "<h3>name = $name</h3>\n";
print "<h3>value = $value</h3>\n";