|random handwaving here...
use MyConfig;

my $host=$MyConfig::datahost;
my $user=$MyConfig::datauser;
my $pass=$MyConfig::password;
my $database=$MyConfig::database;

   | now do something with it...