#!/usr/bin/perl


$dt=`date "+%D  %R"`;
chop($dt);
$dt=~s/(........)//g;
$dt=$1;

print "Content-type: text/html\n\n";



open(MYFILE,"tpromotionanalysis.htm");
@filecontents=<MYFILE>;
close(MYFILE);
$code="";
foreach $line (@filecontents) {
   $code=$code . $line;
}
$code=~s/\*dt\*/$dt/g;
print $code;