package myPackage; use Exporter; use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); $VERSION = 1.00; @ISA = qw(Exporter); @EXPORT = qw( %tables ); @EXPORT_OK = qw(%tables); #%EXPORT_TAGS = (); my $topDir = "E:\\tables"; #### my %tables = ( ABC => { InitDir => "$topDir\\ABC\\", CtlFile => "ABC.ctl", LogFile => "ABC.log" }, XYZ => { InitDir => "$topDir\\XYZ\\", CtlFile => "DOD_CIV_PAY.ctl", LogFile => "DOD_CIV_PAY.log" }, Other => { InitDir => "$topDir\\.", CtlFile => "", LogFile => "" } ); 1;