my $dbh = DBI->connect($DBSERVER, $DBUSERID, $DBPASSWD)

    or die "Can't connect to $DBSERVER: $DBI::errstr";