use Safe ;

my $PACK = new Safe ;

$PACK->permit_only( # good ops here