PPT Slide
push (@INC,”C:/perl5/lib"); # WHERE TO FIND STANDARD PERL FUNCTIONS
require "ctime.pl"; # INCLUDE THIS FILE AS PART OF MY PROGRAM
####################################################################
$SYS_DT = time; # GET THE SYSTEM TIME
$DT_STR = &ctime($SYS_DT); # REFORMAT INTO A STRING
####################################################################
print <<TAGPOINT; # Note: a blank line is required after Content-type
Content-type: text/html
<HTML><BODY>
<CENTER><H1>Hello World.<BR><BR>
(pdemo3.pl)<BR><BR><BR>
The date and time is <BR>
$DT_STR
</H1></CENTER>
</BODY></HTML>
TAGPOINT