Select Code to Download

my $dbh = foo( 
    q{debug}  => 0, 
...
    q{user}   => SQL_USER,
    q{pass}   => SQL_PASS,
);

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

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