Select Code to Download

use strict;
use warnings;
...
print "table name B ='$nameB'\n";
print "table name 0 ='$name0'\n";
print "table name 1 ='$name1'\n";

table name A ='table0;'
table name B ='table1'
table name 0 ='table0'
table name 1 ='table1'