my $data_source = "DBI:mysql:database=" . $db . ":host=" . $host . ":port=" . $port;
my $dbh = DBI->connect($data_source,$user,$password,{ PrintError => 0});