#!/usr/bin/perl
################################################################################
#
#  Counter
#  (c) Darren Wright All Rights Reserved
#  http://perlwebsite.com
#  author : Darren Wright
#
#  UNAUTHORISED USE OF THIS SCRIPT IS STRICTLY PROHIBITED
#  INSTALLATION INSTRUCTIONS CAN BE FOUND IN README.TXT
#
#  Selling or modifying the code for this program without prior written consent
#  is expressly forbidden. You MAY NOT redistribute this program over the Internet
#  or in any other medium. In all cases copyright and header must remain intact.
#
#  This program is distributed "as is" and without warranty of any kind.
#  By using this program you agree to indemnify perlwebsite.com and the author
#  for any damages, losses etc. as the result of its use.
#  In other words use at your own risk.
#
################################################################################

open(INF,"count.txt");$count = <INF>;close(INF);$count = $count + 1;
open(OUTF,">count.txt");flock(OUTF,2);seek(OUTF,0,0);print OUTF "$count\n";
close(OUTF);print "Content-type: text/html\n\n";print "document.write ('$count');\n";

# End Script