try changing: my $dbh->do($sql); to this:

$dbh->do($sql);
[download]

I would get rid of the disconnect as well, since I assume you still want to be connected to the database when you do this. Also you probably want to change this:

if ($table_name = $Table_4){
[download]

to something more like this:

if ($table_name eq $Table_4){
[download]