Select Code to Download

foreach table $tables {
    set timeout 3600
...
        timeout { errmsg "BOTTOM NOT FOUND FOR $table" }
    }
}

    @tables = ("TONES", "OFCENG", "EASAC");
    foreach $table (@tables)
...
                    $self->send("quit all\r"); }],
        );
    }