use Safe;
$s = new Safe;
$s->deny_only(q(:dangerous));
$s->reval(q(use Data::Dumper;));
die $@ if $@;