my $db_name = <FH>;
my $user    = <FH>;
my $passwd  = <FH>;

my $dbh = DBI->connect ( "DBI:Pg:dbname=$db_name", "$user", "$passwd" )
   or die "Keine Verbindung mit der DB!\n";

chomp for $db_name, $user, $passwd;

package MyConf.pm;

our $user = 'User';
our $passwd  = 'Password';
our $db_name = 'Datenbank';

1;

use MyConf;

my $dbh = DBI->connect("DBI:Pg:dbname=".$MyConf::db_name, $MyConf::user, $MyConf::passwd) or die $DBI::errstr;