BEGIN {
 *{join "::", __PACKAGE__, "var"} = \${join "::", __PACKAGE__, "var"};
}

$var = "Hello, world\n";
print $var;