Perlで定数やDB接続部分を纏めた設定ファイルを作成するとします。ファイル名はConf.pmとします。
ハッシュに値を持たせ、他プログラムからはキーから値をとるようにします。以下、Conf.pmの例です。

#!usr/bin/perl

package Conf;
use strict;
use warnings;

my %conf = (
    'db' => {
        '' => 'dbi:Pg:dbnamee=test;host=localhost',
        '' => 'postgres',
        '' => 'postgres'
    }
);

sub read{
    my $key = shift;
    if(defined($conf{$key})){
        return $conf{$key};
    }else{
        return undef;
    }
}

このようにDB接続部分をハッシュで持ち、他プログラムからはreadを使用してアクセスするようにします。
以下、他プログラムのサンプルです。

#!usr/bin/perl

use Conf;
use DBI;

my $db;

$db=DBI->connect(
    Conf::read('db')->{'dsn'},
    Conf::read('db')->{'user'},
    Conf::read('db')->{'pass'}
);