my $dsn = "DBI:mysql:database=$db1;host=$host;port=$port";
my $dbh = DBI->connect($dsn, $user, $pw,
                    { RaiseError => 1, AutoCommit => 0 });
                    
# delete records from table rtemp
my $sql = "delete from database.table";
my $sth = $dbh->prepare($sql);
my $sth1 = $dbh->do($sql);