Select Code to Download

      $$database_handle = DBI->connect((
                     map {
...
                     (qw(data_source_name username password))
                    ), {Taint=>$arguments{taint}||$caller->database_ta
+int}
                   ) or die "Could not connect to the database: $DBI::
+errstr" unless defined $$database_handle;