DBI->connect_cached( $dsn, $username, $auth, {
    PrintError => 1,
    RaiseError => 1,
    AutoInactiveDestroy => 1})or die "Could not connect to: " $DBI::errstr ."\n";