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