# my mistake not to define the type of the variable
# not lexical, but in main package
$main::var_for_this = q{};

print *var_for_this{NAME};