#!/usr/bin/perl
use warnings;
use strict;

use Safe;

my @ops = qw( padany leaveeval lineseq bit_or left_shift const
              left_shift right_shift bit_and bit_xor bit_or
              negate i_negate not complement);

my $safe = Safe->new();
$safe->permit_only(@ops);

my $result = $safe->reval( '(1 << 18) | (0x00 << 12) | (0x00 << 6) | 0x00' );
printf "0x%x\n", $result;