#!/usr/bin/perl
use Modern::Perl qw/2010/;
use Safe;
use File::Slurp;
 
my $compartment = Safe->new();
my $japh = read_file( 'obfu3.pl' ) ;
my $result = $compartment->reval($japh);
say "Result is $result";


eval ('perl -MO=Deparse obfu3.pl');