Select Code to Download

<%perl>
my $apr = Apache::Request->instance( $r, POST_MAX => 1 );
...
  print "Just right.";
}
</%perl>

package My::ApacheHandler;

...
}

1;