sub set_cookie_value
{
        my ($inputs) = @_;
    
        $query  = new CGI();                            
    
    my $cookie = "";
    my @cookies = ();

    my $key;     
    foreach $key (keys %$inputs)
    {    
        $cookie = new CGI::Cookie(-name=>$key, -value=>$inputs->{$key}
+, -expires=>$inputs->{$key}, -path=>'/', -domain=>'', -secure=>0);
        push (@cookies, $cookie);  
    } 
    
    print $query->header( -cookie=> \@cookies );  
}
[download]