Select Code to Download

sub create_table
{
...
            
                        )->pack(-expand => 'both', -fill => 'both');
}

#clear table
sub clear_table{
...
   }
 }
}