#!c:\Cygwin\bin\perl.exe -wT

use strict;
use lib ('.');
use myPackage '%tables';

my $idir 	=		$tables{"ABC"}{"InitDir"};
my $ctlFile	=		$myPackage::tables{"ABC"}{"CtlFile"};

print "[$idir] [$ctlFile]\n";