#!/usr/local/bin/perl

use CGI;
$q = new CGI;

$host = $ENV{HTTP_HOST};
$cookie = $q->cookie(-name=>'blockade',
		     -value=>1,
		     -path=>'/',
		     -expires=>'+3h');

print $q->header(-type=>'image/gif', -cookie=>$cookie);

# print $q->cookie();

# open(LOG, ">>/usr/local/web/logs/Detritus/env_log") || die "$!";
# print LOG $cookie, "\n";
# close LOG;