#! /usr/bin/perl -w

#=====main
print "Content-type: text/html \n\n";

$croot =  "/opt/www";
$ifil  = "hosting/code/home/index1.html";
$cfil =  "$croot/$ifil";

-e $cfil
or
&error ( "$! <br> $cfil" );

# para evitar redirect 
# y permitir que google robots lea cfil
open f1, $cfil;

while ( <f1> )
{
        print;
}
close f1;
print "*<!---  $cfil  jun-6.2025  --->";
exit;

sub  error
{
        $wtxt = shift;

        print <<EOD;
<p>
&nbsp;
<p>
&nbsp;

<center>
<h2>PROBLEMA</h2>
<h3> $wtxt </h3>
</center>
EOD

        exit;
}