Select Code to Download

reval (STRING)
    This evaluates STRING as perl code inside the compartment.
...
The code can only see the compartment's namespace (as returned by the 
root method). The compartment's root package appears to be the main:: 
package to the code inside the compartment.

$string = <<'EOM';
  use Person;
...
                     ], 'Person' )
        };
EOM