#!perl
use CGI qw( :standard );
open( COUNTREAD, "counter.dat" );
$data = ;
$data++;
close( COUNTREAD );
open( COUNTWRITE, ">counter.dat" );
print COUNTWRITE $data;
close( COUNTWRITE );
print header;
print "";
print "You are visitor number
";
for ( $count = 0; $count < length( $data ); $count++ )
{
$number = substr( $data, $count, 1 );
print "";
}
print " ";