Select Code to Download

eval 'BEGIN { $^C = 1 } ' . $code; # where $code contains what you wan
+t to test

use Safe;
my $compartment = new Safe;
$compartment->reval( 'no warnings; BEGIN { $^C = 1 } ' . $code );