sub doDBItable {
	my $top = MainWindow->new;
	my $tkdbi = $top->DBITable (
			-sql => 'select * from user',
			-dbh => $dbh,
			-display_id => 1,
			-debug => 1,)->pack(expand => 1, -fill => 'both');
}

##</code><code>##

Tk::Error: element "J" already exists at K:/Perl/site/lib/Tk.pm line 228.
 at K:/Perl/site/lib/Tk/Derived.pm line 467
 [\&main::doDBItable]
 (menu invoke)