package My::Handler;
use strict;
use warnings;
use Apache2::RequestRec ();
use Apache2::RequestIO ();
use Apache2::Const -compile => qw(OK);
use LWP::UserAgent ();
sub handler{
my ($r) = @_;
my $ua = LWP::UserAgent->new;
my $resp = $ua->get( $r->unparsed_uri );
$r->print( $resp->decoded_content );
return Apache2::Const::OK;
}
####
use lib "/my/handler/lib";
PerlModule My::Handler
Require all granted
SetHandler perl-script
PerlResponseHandler My::Handler
####
Can't locate HTTP/Config.pm: /my/handler/lib/HTTP/Config.pm: Permission denied at //perl-5.34.0/lib/site_perl/5.34.0/LWP/UserAgent.pm line 865.