#!/usr/bin/perl

print "Content type: image/jpeg\n\n";
open(HITS,">> /home/dave/ATAThits");
print HITS "hit from $ENV{'REMOTE_ADDR'} at ";
#(".gethostbyaddr($ENV{'REMOTE_ADDR'}).") at ";
print HITS "" . (localtime)[2] . ":" . (localtime)[1] . ":" . (localtime)[0] . " on " . ((localtime)[5] + 1900) . "/" . ((localtime)[4] + 1) . "/" . (localtime)[3] . "\n"; close HITS;
open(IMG,"/var/www/images/tiny_logo.jpg");
print while(<IMG>);