use CGI qw/:standard/;
use CGI::Carp 'fatalsToBrowser';
use CGI::Cookie;

my $cname = new CGI::Cookie(-name    =>  '2930ForumCookie',
                        -value   =>  "$in{name}|$time|$oldtime",
                        -domain  =>  '.2930online.com',
                        -expires =>  "$exp");

print "Set-Cookie: $cname\n";
print "Content-type: text/html\n\n";