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,
);