##
#! /usr/bin/perl
print"Location: index.".(($ENV{HTTP_ACCEPT}=~/html/g)[0]||'wml')."\n\n";
####
#! /usr/bin/perl
$ENV{HTTP_ACCEPT}=~/vnd\.wap\.(wml)/;
open FILE,"$ENV{DOCUMENT_ROOT}$ENV{REQUEST_URI}index.${\($1||'html')}" or die($!);
print "Content-type: text/${\($&||'html')}\n\n";
print while ();