#!/usr/local/bin/perl asp
<% 
 if(! $ENV{MOD_PERL}) {
   print "ERROR: \$Response->ErrorDocument() is not implemented in CGI mode\n";
   $Response->End;
 }
%>
<%
my $file = DemoASP->new->{file};
$Response->Status('404');
$Response->ErrorDocument('404', <Custom 404 Error
This is a custom response for the 404 error,
that this script just created, utilizing the 
\$Response->ErrorDocument(\$error_code, \$uri) method.
view this file's source