my $retval = eval $source;
warn $retval->package; # prints package of evaluated # source


##</code><code>##

my $code = join( '', <$fh> );
    close( $fh );
    eval $code;
    if ( $@ ) {
      $r->log_error( $@ );
      return SERVER_ERROR;
    }
    my $package = ($code =~ /^\s*package\s+([\w:]+);/m)[0];