package Foo;

use Apache::Request;
use Apache::Constants qw( OK );

sub handler {
  my $r = Apache::Request->new( shift );

  $r->pnotes( Foo => "Bar" );

  return Bar::handler( $r );

}

package Bar;

sub handler {
  my $r = shift;

  $r->send_http_header( "text/plain" );

  print "uri is: ", $r->uri(), "\n";

  print "Foo is: ", $r->pnotes()->{Foo}, "\n";

  return OK;
}

1;
__END__

  <Directory /usr/local/apache/htdocs/foo>
    SetHandler perl-script
    PerlHandler Foo
  </Directory>

uri is: /foo
Foo is: Bar