package Attr;

use strict;
use vars qw(%struct);

%struct =
     (
      infomgr => {
                 sid      => 'xxxxxx',
                 username => 'xxxxxx',
                 passwd   => 'xxxxxx',
                },
     )

##</code><code>##

use Attr ();              # Application wide configuration
use vars qw(%struct);     # Grab the datastructure from the config file
*struct = \%Attr::struct; # Alias the variable out
..
..
print $self->{config}{infomgr}{sid} # for want of a better example