#!/usr/bin/perl -w
######################################################################
# basehtml.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

use CGI qw/:standard/;

print header,
      start_html('-title'   => 'HTML-Tags', '-bgcolor' => 'white'),

      h2("Bulleted list"),
      ul( li( i("italic") ), li( b("bold") ), li( tt("typewriter") ) ),

      hr(),   # horizontal line
      p(),    # paragraph

      h2("Glossary list"),
      dl(
         dt("Hyperlink"), 
         dd( 
             a( {href => 'http://www.com'}, "Click here!") 
           ),
         dt("Hyperlink as an image"), 
         dd(
             a( {href => 'http://www.com'}, 
                img({src => "/pic.gif"}))
           )
        ),
      
      end_html();