sub output {
   my $out = shift;
      $out = ref $out ? $$out : $out;
   my $request = shift;

   if ( "$request" =~ /Apache/ ) { #test class
      $request->header_out("Content-Length" => length($out));
      $request->content_type('text/html');
      $request->send_http_header;
   } else {
      print $request->header(-type   => 'text/html',
                             -length => length($out) );
   }
   print $out;
}