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";