1) The database will close properly when $dbh goes out of scope.

2) Clear RaiseError:

my $db_ok = do {
   defined DBI->connect(
      "DBI:mysql:$filename:server.domain.com:3306",
      'dbadmin',
      'password'
      { AutoCommit => 1, RaiseError => 0, PrintError => 0 },
   )
};
[download]