7 lines
140 B
Perl
7 lines
140 B
Perl
|
use Safe;
|
||
|
|
|
||
|
|
$safecompartment = new Safe;
|
||
|
|
|
||
|
|
$safecompartment->permit(qw(print));
|
||
|
|
|
||
|
|
$result = $safecompartment->reval("print \"Hello!\";");
|