#!/usr/bin/perl -w

sub {
    package Romania;
    our $v = 111;
        eval q(
        eval 'print $v, "\n"'; # 111
        eval 'print $v, "\n"'; # still 111 of course
    );
}->();

print qq~----\n~;

print qq!$Romania::v\n!;