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;
}