#!/usr/bin/perl5
use CGI qw/:standard/;
use CGI::Cookie;


my $c3 = new CGI::Cookie(-name    =>  'preferences',
                     -value   =>  '',
                     -expires =>  'now',
                     -domain  =>  '',
                     -path    =>  '/'
                     -secure  =>  0 );

my $c1 = new CGI::Cookie(-name    =>  'ID',
                     -value   =>  '',
                     -expires =>  'now',
                     -domain  =>  '',
                     -path    =>  '/'
                     -secure  =>  0 );
my $c2 = new CGI::Cookie(-name    =>  'userid',
                     -value   =>  '',
                     -expires =>  'now',
                     -domain  =>  '',
                     -path    =>  '/'
                     -secure  =>  0
                            );
print "Content-Type: text/html\n\n";
 print "Set-Cookie: $c1,$c2,$c3\n";