#!/usr/bin/perl -w
use strict;
use CGI ':standard';
print
header(),
start_html('Generating HTML'),
h1('Now Is:'),
p('The current date and time is:', scalar(localtime)),
hr(),
h1('This is heading 1');
my $file_listing = '';
$file_listing .= "<br />$_" foreach <*.pl>;
print
p('This is a ','file list:', $file_listing),
h1('Go Here For Excellent Books!'),
p('Check out the',a({ href => 'http://www.java2java.com/' }, 'www.java2java.com Home Page')),
end_html();
|