Mega Code Archive

 

Categories / Perl / CGI

 

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 .= "<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.rntsoft.com/' }, 'www.rntsoft.com Home Page')),      end_html();