Help for this page
#!/usr/bin/perl use Safe; ... my $compartment = Safe->new; $safe = sub { $compartment->reval($code) || die $@}; print $safe->();