#!/usr/local/bin/perl asp <% if(! $ENV{MOD_PERL}) { print "ERROR: \$Response->ErrorDocument() が、CGI モードでは実装されていません。\n"; $Response->End; } %> <% my $file = DemoASP->new->{file}; $Response->Status('404'); $Response->ErrorDocument('404', < 通例的な 404 番エラー これは、404 番エラーを返す通例の応答で、 このスクリプトが、 \$Response->ErrorDocument(\$error_code, \$uri) メソッドを利用し 生成したものです。

ファイルのソースを見る ERROR ; %> これは、print されるべきではない。