#!/usr/local/bin/perl # require "/usr/local/apache/cgi-bin/cgi-lib.pl"; &ReadParse(*input); print &PrintHeader; &HtmlHeaders("Pagina de Dominios Reservados"); print "

 

"; print "
Bienvenidos a:

"; print "

 

"; print "
$ENV{'HTTP_HOST'}
","

"; print "

 

"; print "
Under Construction

"; &HtmlBottom(); exit (0); sub HtmlHeaders { local $titulo=shift; print " $titulo "; } 1; sub HtmlBottom { print " "; } 1;