#!/usr/bin/perl -w use strict; use CGI qw(:standard); use CGI::Cookie; my $q = new CGI; my $cookie = $q->cookie(-name => "CUSTOMER1", -value => "WILE E. COYOTE", -Path => "/"); my $cookie2 = new CGI::Cookie(-name => "CUSTOMER2", -value => "BEEP BEEP", -Path => "/"); print $q->header; print $cookie; print "
\n"; # $q->br; print $cookie2; print "
\n"; # $q->br; ##

##

Content-Type: text/html

CUSTOMER1=WILE%20E.%20COYOTE; path=/<br>
CUSTOMER2=BEEP%20BEEP; path=/<br>

##

##

CUSTOMER1=WILE%20E.%20COYOTE; path=/
CUSTOMER2=BEEP%20BEEP; path=/

##

##

print $q->header(-cookie => [$cookie, $cookie2]);
print "Hello there!
\n";

##

##

#!/usr/bin/perl

print <
Here is some HTML blather.

EOF

exit(0);