use strict;
use DBI;
use vars qw( %conn );

sub connect {
    reread_conf("./config");
    my $server = $config->{server};
    my $db     = $config->{db};
    $conn{$db} ||= DBI->connect("dbi:$server:$db", ...);
} 

my $dbh = connect();