package Foo;
package main; # or whatever package is the 'current' one

##</code><code>##

$Foo::a=$Foo::a;  # using $Foo::a twice will silence the 'used only once' warning

##</code><code>##

sub Foo::declare_package_Foo;