#!/usr/bin/perl -Tw

# Random Counter
# Tired of silly counters?  Give 'em a random access count instead.
# Copyleft 1997 Jason Costomiris (whois:JC1011).
# Rights?  You had rights?  Why when I was a kid......

require 5.004;

use strict;
use GD;
use CGI;

srand;
my $random = int(rand(999999));

my $image = new GD::Image(45,25);
my $white = $image->colorAllocate(255,255,255);
my $black = $image->colorAllocate(0,0,0);
$image->interlaced('true');
$image->fill(0,0,$black);
$image->string(gdMediumBoldFont,2,5,$random,$white);


my $cgi = new CGI;
print $cgi->header('image/gif');
print $image->gif;