Select Code to Download

LoadModule perl_module modules/mod_perl.so
LoadModule apreq_module modules/mod_apreq2.so
...
        PerlResponseHandler ModPerl::Registry
    </Files>
</IfModule>

use strict;
use warnings FATAL => 'all', NONFATAL => 'redefine';
...
            Dumper($req->body);
    close $fh;
};

16:50 localhost:~> POST -c application/xml -PUSe 'http://localhost/lis
+ten2/lol?foo=bar;quux'
Please enter content (application/xml) to be POSTed:
...
Client-Date: Tue, 18 Apr 2006 14:51:00 GMT
Client-Peer: 127.0.0.1:80
Client-Response-Num: 1

2006-04-18 16:51:00
POST /listen2/lol?foo=bar;quux HTTP/1.1
...

$VAR1 = '<lol>xml</lol>

';