#!/usr/pkg/bin/perl

use strict;
use lib qw(lib);

use JConv;
use Skelton;

use TDS;
use TDS::Comment;
use TDS::System;

################################################################

print "content-type: text/html\n\n";

my $com = new TDS::Comment;
my $html = $com->AsHTML;
*jconv = mkjconv($TDS::System::InternalJcode, $Skelton::OutputJcode);
jconv(\$html);
print $html;
################################################################
