my $database = DBI->connect("DBI:" . $info{DBMS} . ":" . $info{DSN},
'sa','') or die "Could not connect to database: " . DBI->errstr;

##</code><code>##

$database->disconnect();