Select Code to Download

$cookie = CGI::Cookie->new(-name => 'USERNAME',
                           -value => $encrypted,
...
                           -secure => 1);
        
print $query->header(-cookie=>$cookie);

    local our $cookie_in = $query->cookie('USERNAME');
    print "Content-Type: text/html\n\n";
    print $cookie_in;