#!/usr/bin/perl
# Michael Tartaglia
# Program uses CGI pretty module to display text in neat HTML format.
#    Results are only apparent if user views the HTML code produced by
#    this program


use CGI::Pretty ":standard";
require template;

template::startHTML("Freelance Program","Using CGI::Pretty");


print "\n<!-- Begin PRETTY code -->\n\n\n";

# PRINT IMAGES USING CGI'S IMG SUBROUTINE
my $images = ["Weba.gif","Webb.gif"];
print img({-src => "../images/$_",
          -width => "100", -height =>"100",
          -alt => "$_ image"}), "\n"
	  foreach(@$images);


# PRINT A MESSAGE TO THE USER ABOUT THE PROGRAM
print br(), br(), b("From Network & Client/Server ",
       "Computing"), br(), p({-align => 'justify'},
       "Here are two images I needed to post, ",
       "drawn as bitmaps in VBasic, converted ",
       "to GIF files then uploaded to here."),
       p({-align => 'justify'}, "The page you are ",
       "viewing is make using a module called ",
       "CGI::Pretty, and works using some ",
       "variable references. View this page\'s ",
       "source code to see what pretty can do -- ",
       "namely print out HTML code in an organized ",
       "format."),
       p({-align => 'justify'}, "I can explain why ",
       "and how this works, but I cannot explain ",
       "why ", i("imaging"), " is being taught in ",
       "a ", i("networking"), " course!", br(),
       pre(" :) "));

print "\n\n\n<!-- End PRETTY code -->\n";
template::endHTML();