sub eval_this {
      my $code = shift;
      $code = "package main; \n$code";
      no strict 'refs';
      eval $code;
      die ("Error: $@") if $@;
}

##</code><code>##

eval_this('our $var; print $var');