#!/usr/bin/perl ##################################################### # Script by: M1key_B_@webtv.net ################# # please leave this header intact ################# # ################# # INSTRUCTIONS: ################# # Note: Change "PAGE-Name" to ################# # whatever your page name is (example) ################# # If your page name is Tute1.html ################# # All you need to put is Tute1 where ################ # "Page-Name" is and it will open a ################ # Tute1.txt file in your directory to keep ################ # track of visits ################ ###################################################### # Embed on Any page EXACTLY like this: ############ # ############ #
#################################### use CGI qw(param); $count = param('count'); print "Content-type: \text/html\n\n"; open(MULTI,"$count.txt"); $hits = ; close(MULTI); ++$hits; open(MULTI,">$count.txt"); print MULTI $hits; close(MULTI); print ""; print ""; print ""; print "
"; print "$hits"; print "
"; print ""; exit;