BEGIN {
    if(  5.6 < $^V  ) {
        eval 'our $x; 1' or die $@;
    } else {
        require vars;
        vars->import( '$x' );
    }
}