perl connect to mysql or oracle

#for oracle;
$ordbh=DBI->connect('dbi:Oracle:host='.$ip.';sid=orcl;port=1521','system','123456',{RaiseError=>1,AutoCommit=>0}) || die "cannot connect oracle!:$DBI::errstr\n";

#for mysql;
$mydbh=DBI->connect("DBI:mysql:database=$srcdb;host=127.0.0.1","$userid","$pass",{'RaiseError' => 1,'AutoCommit' => 0})or die "cannot connect mysql";