[Perl]Data was inserted into demodb DB when url isn't correct

$db=$ARGV[0];
$port=$ARGV[1];
$hostname=$ARGV[2];
my $user="dba";
my $pass="";

my $data_source="dbi:cubrid:databaseaaaaa=$db;host=$hostname;port=$port";
print $data_source ."\n";
my $dbh;

$dbh=DBI->connect($data_source, $user, $pass,{RaiseError => 1}) or die "connect err: $dbh->errstr";

$dbh -> do("drop table if EXISTS tbl;") or die "drop error: $dbh->errstr";
$dbh -> do("create table tbl(id int, name char(20));") or die "create error: $dbh->errstr";
$dbh -> do("insert into tbl values(1,'zhangsan'),(2,'lisi'),(3,'wangwu'),(4,'mazi');") or die "insert error:$dbh->errstr";

dbi:cubrid:databaseaaaaa=pldb2;host=10.34.64.60;port=33000
1..1
ok 1 - prepare of delete succeed

csql -udba demodb

csql> show tables;

=== <Result of SELECT Command in Line 4> ===

  Tables_in_demodb    
======================
  'tbl'               


1 rows selected.