#!/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 "<br>\n"; # $q->br;
print $cookie2;
print "<br>\n"; # $q->br;