print $q->header('text/html');
        print $q->start_html(-title=>$node,
                               -author=>'schmidtd@co.delaware.pa.us',
                               -BGCOLOR=>'white');

##</code><code>##

       
        print $q->header('text/html'),
              $q->start_html(-title=>$node,
                             -author=>'schmidtd@co.delaware.pa.us',
                             -BGCOLOR=>'white');

##</code><code>##

    
foreach(@lines){
           print $_;
}


##</code><code>##

 
my $content;   
foreach(@lines){
  $content .= $_;
}
print $content;

##</code><code>##

print join "\n",@lines;