#! /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 (<FILE>);