use strict;
use warnings;
use Tie::Hash;

my (%resource,%wnt,%unx,%component);
my ($os,$informix,$oracle,$sql);

tie %resource, 'Tie::Hash';
tie %wnt, 'Tie::Hash';
tie %unx, 'Tie::Hash';
tie %component, 'Tie::Hash';

inspect(\$os,\$informix,\$oracle,\$sql);
initialize(\%resource,\%wnt,\%unx,\%component,$config_file);
consolidate(\%resource,\%wnt,\%unx,\%component,$informix,$oracle,$sql);
dispatch(\%resource,\%wnt,\%unx,\%component,$os);