CGI Perl

  1. Home
  2. Perl
  3. CGI
  4. Generates HTML with the use of CGI pm using the conventional style
#!/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 .= "$_" 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.rntsoft.com/' }, 'www.rntsoft.com Home Page')),
     end_html();