Select Code to Download

perl -cw yourcode.cgi

# Generate config hash then...
use Data::Dumper;
print Dumper %config;

# Config_reader.pm
package Config_reader;
...
my($db)   = $config{db}{db_name     };
my($user) = $config{db}{db_user     };
my($pw)   = $config{db}{db_pw       };