Mega Code Archive

 

Categories / Perl / System Functions

 

Use Safe

use Safe; $safecompartment = new Safe; $safecompartment->permit(qw(print)); $result = $safecompartment->reval("print \"Hello!\";");