gistfile1.txt

module Safe { 
    our sub forbidden(*@a, *%h) { die "Operation not permitted in safe mode" };
    Q:PIR {
        $P0 = get_hll_namespace
        $P1 = get_hll_global ['Safe'], '&forbidden'
        $P0['!qx']  = $P1
        null $P1
        set_hll_global ['IO'], 'Socket', $P1
    }; 
};
Q:PIR {
    .local pmc s
   s = get_hll_global ['Safe'], '&forbidden'
   $P0 = getinterp
   $P0 = $P0['outer';'lexpad';1]
   $P0['&run'] = s
   $P0['&open'] = s
   $P0['&slurp'] = s
   $P0['&unlink'] = s
   $P0['&dir'] = s
};
# EVALBOT ARTIFACT
use FORBID_PIR;

Perl6::Compiler.interactive();