use Safe; : Safe « System Functions « Perl






use Safe;

   

use Safe;

$safecompartment = new Safe;

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

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

   
    
    
  








Related examples in the same category