#!/usr/bin/perl -w

# (p) Jerry Nagasaki
# Last update: 2007/08/17

# send transparent 1x1 gif image to html caller site

use strict;
use CGI::Carp qw(fatalsToBrowser); # can be removed, if no server debug information wanted

my (@pixel) = (
	0x47, 0x49, 0x46, 0x38, 0x39, 0x61, 0x01, 0x00,
	0x01, 0x00, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00,
	0xff, 0xff, 0xff, 0x21, 0xf9, 0x04, 0x01, 0x00,
	0x00, 0x01, 0x00, 0x2c, 0x00, 0x00, 0x00, 0x00,
	0x01, 0x00, 0x01, 0x00, 0x00, 0x02, 0x01, 0x4c,
	0x00, 0x3b
	);

# -----------------------------------------------------------------------
# add here any page visitor spying CGI perl activities you desire ... ;-)
# -----------------------------------------------------------------------

print "Content-type: image/gif\n\n".join ("", map (chr ($_), @pixel));