use vars qw($Mod::var1 $Mod::var2  @Mod::var3  %Mod::etc);