I apologize, the code I sent previously does create an error, this code
does not...
######################### code
#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;
use CGI::Carp('fatalsToBrowser');
my $Q = new CGI;
my $demo_uses;
$demo_uses = $Q->cookie('demo_tracker');
if (!$demo_uses) {
$demo_uses = 1;
}
else {$demo_uses++}
my $demo_tracker= $Q->cookie(-name=>'demo_tracker',
-value=>"$demo_uses",
-expires=>'+10y');
print $Q->header(-cookie=>$demo_tracker);
print "Here's Something Big!";
######################### end code
Kindest Regards,
Bill Stephenson
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>