Select Code to Download

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

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