my $dbh = foo( 
    q{debug}  => 0, 
    q{db}     => SQL_DB, 
    q{host}   => SQL_SERVER, 
    q{port}   => SQL_PORT, 
    q{user}   => SQL_USER,
    q{pass}   => SQL_PASS,
);

##</code><code>##

my $dbh = foo( SQL_SERVER, SQL_PORT, SQL_DB, SQL_USER, SQL_PASS, DEBUG );

##</code><code>##

my $dbh = foo( SQL_DSN, SQL_USER, SQL_PASS, DEBUG );