#! /usr/bin/perl 

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use Apache::Request;
use Data::Dumper;

print header;
print "hello world<br>";

my $r;
eval {$r = Apache::Request->new();};
print "$@ <br>";

print Dumper($r);

map { print "$_<br>" } @INC;