#!/usr/local/bin/perl
$html = "tesesp.txt";
$count_file = "tesesp.count";
open(IN,"$html") || die "error\n";
@lines = ;
close(IN);
open(DATA,"$count_file") || die "error\n";
while() { $count = $_; }
close(DATA);
print "Content-type: text/html\n\n";
foreach $line (@lines) {
$line =~ s//$count/g;
print "$line";
}
$count++;
open(OUT,">$count_file") || die "error\n";
print OUT "$count";
close (OUT);