#! /usr/bin/perl -wT
use strict;
use CGI qw( :standard );
$|++;

print header, start_html( 'Test Page' ),
      
      p( "Here's a pretty picture; enjoy\n" ),
      
      img( { src=>'../images/back.gif', 
             align=>'CENTER' }, "" 
         ),

      p( "Cool, huh?  When ready, go", 
         a( { href=>'../index.html' }, 'Home' ) 
       ),
      end_html;

##</code><code>##

   parent's public document tree
     + parent site images\
     + parent topic 1
     |   + subtopic 1
     |   + subtopic 2
     + parent topic 2
     |
     + child site "root" 1
     |   + child site images
     |   + child topic 1
     |   + child topic 2
     |       + child subtopic 1
     |       + child subtopic 2
     |
     + child site "root" 2
       # and so on