package Foo;
use strict;

sub eval_this {
      my $code = shift;
      $code = "package main; \n$code";
      eval $code;

      die ("Error: $@") if $@;
}

package main;
our $somevar = "somevalue";
Foo::eval_this('print $somevar;');