アクセス解析

を仕込んでみた
cgi

#!/usr/local/bin/perl -w

use v5.6.1;
use strict;
use warnings;
use diagnostics;
use CGI;
use GD;

my $cgi = new CGI;
my $img = new GD::Image(1,1);

print $cgi->header('image/png');

my $white = $img->colorAllocate(255,255,255);
$img->transparent($white);
$img->interlaced('true');

binmode STDOUT;
print $img->png;

こんなかんじで 1x1のpngを吐くだけだけど…