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