PPT Slide
# WHERE TO FIND STANDARD PERL FUNCTIONS
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
# Note: The 2 newlines in the statement below are required
print "Content-type: text/html\n\n";
print "<HTML><BODY>\n";
print "<CENTER><H1>Hello World.<BR><BR>\n";
print "(pdemo2.pl)<BR><BR><BR>\n";
print "The date and time is <BR>\n";
print "$DT_STR";
print "</H1></CENTER>\n";
print "</BODY></HTML>\n";