#! Perl -w
use CGI;
use strict;
my $query = new CGI;

 my $spcName = $query->cookie(-name=>'spcName', -value=>$query->url_param('test'));
  print $query->header(-cookie=>[$spcName]);
  print "cookie value: ", $query->cookie(-name=>'spcName'), "<BR>";
 my $savedVal = $query->cookie(-name=>'spcName') | $query->url_param('test');
print $savedVal;