#!C:/Perl5/bin/perl.exe ################################################################################ # # Program: pdemo2.pl # Author: Peter R. Schmidt # Description: Print "Hello World" along with date and time # Date: 03/04/99 # ################################################################################ # WHERE TO FIND 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 "\n"; print "

Hello World.

\n"; print "(pdemo2.pl)


\n"; print "The date and time is
\n"; print "$DT_STR"; print "

\n"; print "\n"; ################################################################################