package config; use strict; our $configvariable = 1; return 1; sub setconfigvariable { $configvariable = shift; } sub getconfigvariable { return $configvariable; }