#!/usr/bin/perl
# Program to track the number of times
# a Web page has been accessed.

use CGI qw( :standard );

open( COUNTREAD, "counter.dat" );
$data = <COUNTREAD>;
$data++;
close( COUNTREAD );

open( COUNTWRITE, ">counter.dat" );
print( COUNTWRITE $data );
close( COUNTWRITE );

print( header(), "<div style = \"text-align: center;
                                font-weight: bold\">" );
print( "You are visitor number", br() );

for ( $count = 0; $count < length( $data ); $count++ ) {
   $number = substr( $data, $count, 1 );
   print( { $number }, "\n" );
}