# --- connect to database ---/
$dbh = DBI->connect("DBI:Sybase:server=$dbserver",
$user, $passwd);
$dbh->do("use $dbname");
$dbh->{LongReadLen} = 6000;