#!/usr/bin/perl
############################################################
# debug.cgi
############################################################

use CGI qw(:standard);
my $cgi = new CGI;
my $hostname = $ENV{HTTP_HOST};

$CSSROOT = "../htdocs/css";  # ubervoid.com
$CSSROOT = "/css";           # localhost

#print qq(Content-type: text/html
#
#<html>
# <head>
#  <link rel="stylesheet" href="${CSSROOT}/generic.css" type="text/css">
# </head>
# <body>
#  <table align="center" border="1"><tr><td>
#     <br><br>
#     <div class="title" align="center">Debug Page</div>
#  </td></tr></table>
# </body>
#</html>
#);


exit(0);

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