programming-examples/perl/SystemFunction/use Safe.pl

use Safe;

$safecompartment = new Safe;

$safecompartment->permit(qw(print));

$result = $safecompartment->reval("print \"Hello!\";");