package Glogg;
Readonly our $myconst => "goofy";

##</code><code>##

package Drull;
print("$Glogg::myconst\n");