Select Code to Download

print "Explore: ". $table1->Table->Columns(2)."\n";
for my $key (sort keys %{$table1->Table->Columns(2)}) {
...
for my $key (sort keys %{$table1}) {
    print "\t$key => ".$table1->$key."\n";
}

$table1->Table->Columns(2)->{'Width'} = 300;
$table1->{'Left'} = 30;
$table2->{'Top'} = 200;