#!/usr/bin/perl
print "Content-type: text/html\n\n";
print <<EOF;
ac="$ENV{'QUERY_STRING'}";
pg=Math.round(Math.random()*(99999 - 1))+1;
d=document;
var ref = d.referrer;
if(ref) {
  ref.toLowerCase();
  if(ref.indexOf("unknown") != -1) {
    ref = "";
  }
}       
wsurl='http://www0.webstat.com/';
s=screen;var sw=s.width,sh=s.height,sc=s.colorDepth;
if (!sw){var sw="";} if (!sh){var sh="";}
if (!sc){var sc="";}if (!pg){var pg="123";}

d.write('<script language="JavaScript">');
d.write('js = "1";');
d.write('</script>');

d.write('<script language="JavaScript1.1">');
d.write('js = "1.1";');
d.write('</script>');

d.write('<script language="JavaScript1.2">');
d.write('js = "1.2";');
d.write('</script>');

d.write('<script language="JavaScript1.3">');
d.write('js = "1.3";');
d.write('</script>');

d.write('<a href="http://www.webstat.com" target="new">');
d.write('<img SRC="'+wsurl+'cgi/wsb.cgi?'+ref+'&pg='+pg+'&ac='+ac+'');
d.write('&w='+sw+'&h='+sh+'&c='+sc+'&js='+js+'" border="0"></a>');
d.write('<!-- END ACTIVATION CODE -->');
EOF
exit(0);