#!c:\perl\bin\perl.exe

$browser = $ENV{'HTTP_USER_AGENT'};

if ($browser =~ /UP.Browser/) {
    #

open(FILE,"main.hdml") ;
@FILE = <FILE>;
close(FILE);

print "Content-type: text/x-hdml","\n\n";
print @FILE

    #
} else {
    #

open(FILE,"main.html") ;
@FILE = <FILE>;
close(FILE);

print "Content-type: text/plain","\n\n";
print @FILE

    #
}

exit(0);