Select Code to Download

use strict;
use warnings;
...
    my $val = shift;
    printf "[%s] goodness: %s\n", $$, $foo;
    $foo += $val;

package Apache::ROOTfoo_2ecom::test_2epl;
use Apache qw(exit);
...
    printf "[%s] goodness: %s\n", $$, $foo;
    $foo += $val;
}