Select Code to Download

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

<%args>
    $uname  => 'x'  
...
    print " sid = ".$sid;
    print "<br>csid = ".$csid;
    exit;