#!c:/xampp/perl/bin/perl.exe
use warnings;
use CGI;
use Time::HiRes qw(gettimeofday);
my $query = CGI->new;
my $dir = "C:/Users/41786/OneDrive/Documents/recordz1/";
print $query->header;
test();
sub test {
open (FILE, "<$dir/test2.html") or die "cannot open file $dir/test2.html";
my $content = "";
my $string .= "<-1-> ";
while () {
s/\$ARTICLE{'index'}/$string/g;
$content .= $_;
}
print "Content-Type: text/html\n\n";
print $content;
close (FILE);
}