sub setcookie
{
 # Get the name, values, and expiry date for the cookie:
 my ($name,$value,$expires) = @_; 
  
 # Now just prepare the cookie string ($c), and return it:
 my $c = new CGI::Cookie(-name => $name,-value => [$value],-expires => $expires);
 return $c; 
}
1;