package Globals; use Exporter; our @ISA=qw(Exporter); our @EXPORT=qw($Var $var @var %var); use Globals_S; use Globals_A; use Globals_H; use strict; use warnings; use vars qw($Var); $Var='$Var'; $var='scalar'; @var=qw(array array); %var=(hash=>1); 1;