**********  Feb 25, 2003 vertical.cgi PERL code   **********   

#!/usr/bin/perl

use CGI qw(:standard);

  print header,

        start_html('Vertical Printing - Feb 26, 2003 class'),
        h1('Vertical Printing Demo'),
        start_form,
           "What's your phrase or word to go vertical? ",
           textfield('theWord'),
           p,
           submit,
        end_form,

        hr, 
        '<A HREF="showVertical.cgi">See PERL code</A>',
        hr,
        '<A HREF="vertical2.cgi">See version 2 of vertical CGI</A>',
        hr;

   if (param()) 
   {
       $spaces = "                          ";

       @letters = split(//, param('theWord'));

       print "\n<H1><FONT COLOR=BLUE>\n<PRE>\n";

       foreach (@letters)
       {
          print "$spaces $_\n";
       }

       print "\n</PRE>\n</FONT>\n</H1>\n";
   }  

   print end_html;