- or download this
package ConfigFileRead;
...
use vars qw(%User_Preferences);
...
- or download this
# main program
...
require ConfigFileRead;
use Data::Dumper;
print Dumper \%ConfigFileRead::User_Preferences;
- or download this
# in ConfigRead.pm
...
# main program
my $config = ConfigFileRead::readConfigFile();
print Dumper $config;