#!perl
my $r = shift;

$r->custom_response(500, "/perl/server_error.pl");

my $qs = $r->args;

die "$qs\n";