Select Code to Download

    print "Set-Cookie: $cookie1\n";
    print "Content-Type: text/html\n\n";

sub SetCookie {
    use CGI qw/:standard/;
...
    $exp = $cgi->header( -cookie => DB);
    print "$id[0] = $id[1]; $id[2] = $id[3]; Expiration = $exp";
}