# set cookie
    Apache::Cookie->new( $r,
        name => 'license_session',
        value => $sid,
        path => '/',
        expires => '30m',
    )->bake;

##</code><code>##

<%args>
    $uname  => 'x'  
    $passwd => 'x'
    $url    
</%args>

<%perl>

use warnings;
use strict; 
use lib "/var/www/itiv/modules";
use Mapps::Session;
use Mapps::Auth;

##########################
# try to authenticate
##########################
my ($auth, $uid) = Mapps::Auth::auth($uname, $passwd);

if ($auth == 1){
    my $s = Mapps::Session->new();
    my $sid = $s->new_session($uid);
    #my $sid = $s->sid();

    # set cookie
    Apache::Cookie->new( $r,
        name => 'session',
        value => $sid,
        path => '/', 
        expires => '30m',
    )->bake;
    #print "sid = ".$sid;

    my %cookies = Apache::Cookie->fetch;
    my $csid = $cookies{'session'}->value;
    print " sid = ".$sid;
    print "<br>csid = ".$csid;
    exit;