my $dbh = DBI->connect("DBI:mysql:$dbase", $mysql_user,
    $mysql_pass) or print DBI=>"errstr";