package x;
VERSION = 'bar';

package Foo;
VERSION = '1.01';

package main;
$bar = '0.01';
$x = 'Foo';

print ${"$x::VERSION"}, $/;
print ${$x . "::VERSION"}, $/;
----
0.01
1.01