*p2::func = \$func;

package p2;

our $x = 100;
$func->();